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THE CHECKAL PROGRAM IS Mape UP IN MaIN OF PROCEDURE DECLARATIONS 10000000 7 d000 
WITH APPROPRIATE CALLS ON THEM» EACH PROCEDURE CONCERNS ITSELF WITH 10000000 7 0000. 
CHECKING QUT A GIVEW ALGOL 60 CONSTRUCT. ~ 10000000 t 0000 

THE WORK AREAS OF THE PROGRAM aRE TwO SINGLE DIMENSION aRRayS 10000000 r 0000 
CAL ED: TEMP AND: ANS «THE ELEMENTS OF THE ARRAY TEMP ARE FILLED WITh 10000000 + 0000 
VALUES GENERATED BY THE ALGCL CUMPILER AND THE MACHINE» FOR VARIOUS 10000000 t Oa0d0 


YNTacTI cal CONSTRUCTS IN alGOlL. Tre ARRAY aNS IS THEN FILLED WITH Tre 10000000 7r. 0000 


EXACT BIT CONFIGURATION OF THE ANSWERS EXPECTED. 10000000 7 0000 
A CALL FOR A PROCEDURE 70 ct EXECUTED ALSU CAUSES A CALL ON A 10000000 7 0000 
4 NE CALLEG VERIFY. THIS ROUTINE CUMPARES CVN ELEMEN OF ARRAY OT |eC00000 FT 0000 
| TEMP wITH THOSE GF ARRAY ANS» CyN IS A PARAMETER To PRUCEDURE vERIFy =  ——_—-10000000 7 0000 
TELLING ITT HOw MANY ELEMENTS GF THE ARRAYS TO CHECK 10000000 Tt 0990 
CVN MENTS UF TRE ARRAY CURRESPUND IN EVERY gIT PU oN AN 


OQuTPut LINE STATING THIS PROCECURKE IS OK IS PRINTED ON THE LINE 


_ 10000000 

PRINTER* SHOULD Any ELEMENT OR ELEMENTS OF THE ARRAYS NOT COMPARE THE 10000000 t 0000 
VUTPUT WIL A RA HE PROCEDURE BADs WHETHER TRE PRUCEOURE IT CTOUN0N T Jd00 
Ok OR BAD THE OyTPuT LENE ALWAYS CONTAINS A DESCRIPTION OF THE CONSTRUCT 10000000 0000 
BEING CHECKED TOGETHER wITH THE PARAGRAPH AND SUB=PARAGRAPH NUMBER OF 10000000 rt 0000 
HIS CONSTRUCT IN THE EXTENDED ACGOL MANUAL. | 10000000 F 0600 
SHOULO THE PROCEDURE PRODUCE A RESULT WHICH Is BADs THEN THE VALYES 10000000 , 0000 


OF ALL ELEMENTS OF THE ARRAYS ANS AND TEMP ARE PRINTED OUT, IF THE . 10000000 


EMEKTS FAD COMPAR al. AGENG TGED & CV S R > OLOTOLOESLSLS C000 
IF TRE ELEMENT DOES NOT COMPARE THEN IN ADDITION TO PRINTING 10000000 , og00 
CVNCX] IS FALSE THE EXACT VALUES OF TEMPCX] AND ANS(X) ARE PRINTED 100000090 rt 0000 
aIVING VISUAL PROOF OF THE OTSCREPENCY. ~ [O00UH00 7 D005 
“TEIS FALSE ANSWER CAN VERY EASTLY GE TRACED BACK TO THE CONSTRUCT 10000000 F 0000 
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CREATING TT. SHQULD THE ERRCGR CCCUK In SAY PRUCEDURE P81» THE BODY uF 

HTS PROCEDURE PBT CAN FUUND BY SEARCHING DOWN THE SEQUENCE FIELD ~~ 
OF THe LISTING FUR CARDS UF SEGUENCE NO AOBi=@=,. WITHIN THE BODY OF 
THE PROCEDURE, SINCE THE ELEMENTS OF ARRAY TEMP ARE SEQUENTIALLY 

LLEDs THE PARTICULAR CONSTRUCT CORRESPONDING TO CVNIX] CAN BE LOCATED. 
AT THE END OF PROCEDURE Fer THE FILL STATEMENT ON ARRAY ANS SHOWS 
WHAT EXACTLY WAS EXPECTED FOR AN ANSWER. WITH THIS INFURMATLON IT IS 


PQ BLE TO RAPIBLY RUN DOWN A COMPILER FATLURE AND SOMETIMES A 


HARDWARE FAILURE» 


COMMENT THIS IS THE EXTENOEC ALGOL MASTER PROGRAM 3 
INTEGER CVN» PNOS 


BCOLEAN NOK3 


ARRAY ANS. CEPSOTS 
ARRAY TEMP [1150] 
BOOLEAN ARRAY CV £13502; 
ALPHA ARRAY PROCIDS TO? 150; 08ST} 
FILE QUT FNUK 1 (4915)3 
FILE IN FOUMMY (3+10)3 
PROCEDURE INITIALIZE3 
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GC TO»UCTOsOCTOsOCTOrUCTOsOCTO»s0C FO,UCTO»0C 10» 10000280 4 0020 
OCT O*UCTQrOCTO*OCTO*OCTO»OCTQ»OCTOrOCTOrOCTOr 10000290 T 0020 
_ OCTO*OCTOsOCTO»OCTOsOCTO} 0000300 0020 
5 7S 50 LONG, NEXT SEG 
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10000360 1 Ove22 
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EAD. 
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15¢0S « 6 LIT" "Js OleTas 
1OCDS*i LIT * ")s0S"19 LIT “TEST PROCEDURE NO, "3 
Sre.Uc PNOsS OS¢3 pecs vSe4 LIT " "3 
STePROCIDSAs OS¢6 wOSs 


RELEASE CFIL)S COMMENT AAT TE: CFNUKs FMHEAD» sHeaboa: 
COMMENT THE FOLLOWING CARDS NO, 4945 4929 493% 494» 495s ye 


ARE BEING. INSERTED To GET AROUND THE PRESENCE BIT BEING ON 
FOR BOTH RELEASE STATEMENTS IN PROC+ HEAD. THIS CAUSES THE 
wekee  UNPRINTED BUT FILLED BUFFER TO pe UVERFILLED peFORE IT IS 
weten RELEASED 3 - 
bs SI*FILs OL*L0C Tis DSel WOSs DIeT13 COMMENT DI 3 Ast WO OF BUFF 3. 
ST*LOC NOKVs SJleS]+74 
TF SC="i" THEN BEGIN DleTis OSe10 LIT 8 0 pO 
OSe5 LIT "JS Ok"Z 
63(pSe 1 LIT " ")s42CpSe1 LIT " )3 
RELEASE (FIL)s COMMENT WRITE CFNUKsFMOK)s 
GO TU LL ENDS caesar 
DIl#T1s OSe1O LIT ” "3 
OS¢6 LIT "IS BADMZ63CDSe1 LIT" 423 
aicoSe 1 LIT ™ "95 
RELEASE CFIL)3 COMMENT WRITE CFNOK»sFMBAD)s 
las —— 
ENDS 
STREAM PROCEDURE CVTRUE CFILsI)3 
VALUE ce 
BEGIN. 
LOCAL T13 


SIRE DreLoc Tis Oser WOSF OLeTIFCOMMENT OT=BUFFER TUP3 
a0 peed LF *)E0Se4 AL nov ("3 STe*LOc Ts OSe2 DECS . 
OSeti Lit ™) = TRUEMS O3¢0Se1 LIT ™)3 20CDSe1 LIT# ™); 
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COMMENT WRITE CFNQK*SFMCVe Ts CVCIJSRELEASE CFIL) 


END? 
STREAM PROCEOURE CVFALSE (FIueL)$ 
VALUE 13 
BEGIN 
LOCAL T13 
STeFILS DL©LOC T1s DSel WOS3 DI*TISCOMMENT DISBUFFER TUP3 
“20CDSed LIT? *)s Osea LITMCV CRS SteLOC 17 Dse2 DECS 
DS +3 Lite) = FALSE"$ 63(pSeLIT" "23 20(DSeLIT" "95 
COMMENT WRITE CFNGK*FMCVeTeCVCIJ RELEASE CFIL) 
END a 
STREAM PROCEDURE INT (FIbedsTIeTIpPAT*AIDIS eae oe 
VALUE IsTleTIDe Als AIO} 
BEGIN. 
LUCAL TyT23 
ST¢FILA Ol*Loc T1s pSet WoSs oLeT4; 
“S5CDS*d LIT" 4) Osee LIT*TEMP CWS ST+LOC 13 
po9¢2 DECH S46 LIT "ys 4; SyeLOc¢ Tips Tiepls 
DSet LIT "3 


Dst6 DECS COMMENT 2ST 6 DIGITS BUILTIDTeOTe1F0Se2 RESET; 


BEGIN UI©T1LZ05¢1 CIT "="5OTeT2 ENDS OS*€2 RESETS 


~ 1900008406 


S7CDSel LIT® Ws ) 
RELEASE (FIL) COMMENT WRITE CFNOK* FMT EMP I> Is TEMPLIJ)» 


SI*FILS NIeLQc Tis DSe1 WOSs DLleTis 


J5CDSeT 1 Ts_DS©6 TYENS 77 SI¥FLO 
pSe2 DEC;DS"6 LIT] = "yp StekLOc alos Tieols 


DSe1 LIT " 5 


(DSO DECS DieOlelsUSeg RESETS SI*LOC als OSe7 DECJDISDI <1 
T2eDispleTazsSieT2@sif $8 THEN BEGIN DLeTi spel LIT "="; 


D1eT2 ENDSOSe2 RESET> 
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® a7 (0Se ly ETE Atys 10000990 Tt 00614 @ 
as COMMENT WRITE CFNGKsFMANSTsTsANSCIJ)SRELEASE (FIL) 1ougloq0G + 0062 
END} 10001010 006; 
r) STREAM PROCLOURE GCTaL CRIi Leds TLoT2sT3sT4sTSoTOsT/oTO8eT9eT10-T11> 19001020 + 0063 
m TLSe TL ae TiGs TI Ss TGs Tis eAlrAdvA ar AdrA5rAG> 10001030 0063 
; A7*AS+AG*AL0+ ALL> AL2* A132 A149 AL5* AL6*A17); 10001040 + 0063 
@ i VALUE Teli oT2sT3,T4,TosTo,T7 TO sTIsT10sT1g oT12sTlaeTidsT 1d, 100C1050 7 0663 
a g TLOPTIT+ALs M2, AQ Ao AS AGP ATPABSADFALOZALI PAL Qs AL 3°AL yy 10001000 T 0063 
i ALSsALGs A173 | 0001070 Tt 0063 
e@ BEGIi 10001080 T 0063 
p a LOCAL T $ LABEL LleLasla>Las ~ 10001090 tT 0064 
i ee SI*FILS DlelLdc T sé DSel WOSs DIET 5 Boho teatca Sa Ser tte Seta 10001100 0064 
i 35¢0Se¢1 LIT " ")50S5S¢6 LIT"TEMP C™SSleLOC I3 DSe*e DEC; 10001110 Tt 0065 
‘ 5 DSt6 LIT "J = "3 SieLOC TisSl*Sl+7s1F Sce"l*" THEN BEGIN 10001120 1 0067 
i OS¢1 LIT "*"5G0 TO Li END3 pSed LIT +" ais 10001130 f 0069 . 
@ x Li? Sle.OC T55 DSet DECSZSIe LOC T6sDSe1 pECsSIeLoc 173 10001140 7 Oc71 
“| D 1 VECsSieLOC TesDSey VETS 0 PeUS"] DECISTelL AC TyoF7 ~ 40001350 fT OO73,— 
: OSe1 OEcsSI+LOc T11;0S¢1 DECs SleLOc T12;0Se) DECs === 0001460 F 0074 
i ST*LOC TAS#DSe1 DECSSTeLOC T14s;0Se1 DECESTeLUC T1553 10001170 +t OU76 
. 10001160. 
: OS*2 LIT  X™ZSTeLUC T25S]*SI+751F SCH"1" THEN BEGIN 10001190 
® : OS¢1 LIT "@"3G0 TO L2 ENDSDSe1 LIT "en; 10001200 T 0080 
e i bee ST#LOC T3081 DEC#ST+LOC TAsDSey DECESACOSe, LIT Ry 20001210 7 0084 
| RELEASE (FILS. | en 10001320 "0088 
€ COMMENT CONTINUE OCTALS | 10001230 + 0ce4 
<c SICFILS OfeLOC TF DSe1 WOSF DIeT J — 10001240 tT 0084 
35¢0S*r LIT " "73056 LITMANS (("ZSleLOc 1s DS*2 DECS vie 10001250 7 0085 
@ | OS*6 LIT "J) = " FST*LOC ALSST@SI*731F Scavl THEN BEGIN 10001260 T 0088 
el: yset errGO TO LS ENDFUS+T LIT WF oO 10001270 F 0090 
L3t S1eL0¢ Ads DSe1 DECESI+LOG AGsDSe1 DECESIeLOC avs _ 100012807 909 
@ OS¢1 DECSST*#LOC ABSUSeL DECESI©LOC A9ZDS"4 DECESIeL QC A10; 10001290 tT 0C93 
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DS*1 DECSST*LGC Alls0S¢1 DECSSIeLOC A1230S¢1 DEC; 10001300 +r Ocg94 e 
ST*LOC ALZs0Se1 DECIST*LOC ALasDSe1 DECHST+LOC Aiss 10001310 tT 0096 le 
DS#4 DECESI+LOC AL6s0S¢1 DECsSI+LOc a17s0Se1 VEC; = 10001320 7 0097 | : 
USee LIT" x",STeLOC agsSleSt+/siF Scart" THEN BEGIN 10001330 7 0098 at) 
OSe¢y LIT P@"FG0 TO Le ENDS OSed LIT Fee5 10001340 tT Oj00 oe le 
Lat SI¢LOC AI;DS¢1 DECsST#LGC AgsOSe1 DECIS2(DSe1 LIT” "3 10001350 0103 | ieee 
hn : RELEASE (FIL) 10001360 7 104 1@ 
7 ae ee ae COUOTSTET AAO le 
A HEAD _CFNOK*NGKsPROGIDS[PNO*OJ,PND)FCOMMENT 1ST TWO LINES PRINTEDS 10003380 7 0404 ; 
IF NOK THEN GU TO BUTTOM 10001390 r 0408 /@ 
FOR lel STEP 1 UNTIL CVN OO ere eee 10001400 Tt 0109 z le 
IF CVEI)] THEN CVTRUECENOK,1) ELSE ee 1-57 1 -e eT ET . F 
® 1° 
GIN CVEALSECENOK> sei Seepage teeta, 10001420 t O113. 24 
10001430 7 0115 Je 
Pcie 2 
10001440 7, 0115 1@ 
OcTaL (FNOKs I> TEMPCTI,Cisid>TeEMPCI),ceiids 10001450 Tt O115 3 
TEMPCI1¢€343)eTEMPEL) 9(6t3)eTEMPLI96C9839)> 10001460 7 0119 10 
EMFTIY. C12t3T,TEMPUL) LISS) eTEMPII DT ISTS3, COULGTU ¥Uy is 
TEMPCIJ+C att gle TEMPLIJ of gat 3leTEMPLI lel z7t gle 10001480 7 0127 a 
TEMPLI1,(3013)+TEMPOT],(33!3]+TENPCI),(a6%3]> 01432. 1@ 
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PROCEDURE VERIFYS ~ 10001600 7 0022 
°| B N 0014 ey O02 
e INTEGER 113 10001620 +r 0022 
- START OF SEGMENT wtawewewen 7 
- 9 LABEL Le | Se NEN en 00014630 0000 
e e FOR Iie4 STEP 1 UNTIL CN DQ 10001640 7 0c00 
: IF TEMP CIL}s ANS CIL] THEN CV CIiJeTRUE ELSE CVCIiJeFALSEF 10001650 7 0001 
eo: FOR Iie, STEP 1 UNTIL CVN 06 | ee 10001660 t Oc10 
e P IF CV CILJTHEN ELSE BEGIN NGK#FALSESGO 10 Li ENDS 10001670 y 0011 
8 NOKeTRUES —— 10001680 Tt 0016 
ag Lit REPORT | 0001690 7 COI 
e@- END; 10001700 + 0ct1B 
e! BIEN IID EI ELIE ne EE RR Bg NGS NENW SEG  B 
: BEGIN 7 | iene 0001705 tT 0022 
e@ b 
: STREAM PROCEDUKE OCTFILL(FPARRAY) 3 10001710 7 002: 
i START OF SEGMENT wtvtenaeee 8 
BEGIN —— 10001720 1 0000 
° LUCAL T13 = 10001730 + 0000 
e- SI*FPARRAYS 10001740 + 0000 
i" DI*LUC Tis OS « 1 woss DI + Tr TO001750 70000 
e ‘ OSe48 LIT "1e0+0 ALGUL MASTER TEST PROCEDURES re. Sees _ 10061760 7 0001 
@ |. DI*LOC Tis) DS © 1 WOSs DI © Ths | 40001770 7 0007 
PSeae LIT "2eGea COMMERT = a [oooT7 66 ; “T0068 
e OleLOC T13 OS ¢ 1 WOS$ OI  T13 10001790 7 0014 
OF OSe48 LIT "205 IDENTIFIERS” = | | my 40001800 r 0015 
calle —OTELUC TF BST ST Te OO0Ti0 T0021 
ei OS¢48 LIT "206 NUMBERS : , ae 0001820 00 
@ | DI*LOC T1s OS «© 1 WOSS OL « TAs; 10001830 7 0028 
‘ DSeG8 Lit "o.? STRINGS TOOT TG Sa 
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Sea TRAC ap age 
DI*LOG T1s DS * 1 WOSs OL © 123 10001870 1 0042 

Cs*4g LIT "342 PARTIAL WORD DESIGNATURS "3 10001880 T 0043 
DieLOC Tis) OS ¢ 1 WOSs OL + TH i ee 10001890 7 0049 

S48 T "323 FUNCTION. DESITGNATORS NG 7 7 000 900 Z 0050 
DIeLOC T1s vS + | WOSs ¢ 113 _ noo1o10O 0056 

pSe4a LIT "33.4 STANDARD FUNCTIONS "3 10001920 + 005? 
OieLoc Tis vs 1 WOS} Te TTF =. 10061930 7 0C63 

Cse4g LIT "30345 TRANSFER FUNCTIONS ee eee 10001940 7 0064 


DI*LOC Tis DS ¢ 
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DI*LOC Tis Us «¢ 
OSe¢48 LIT "3e4e4e1 ARITHMETIC 
DI*LOC T1s US « 
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ns bal | 

i TEMPL171¢*9.53 10030220 004 

7 TEMP[18] +5053 
e ; EMP[16]¢+5.53 10030230 T 0045 

9 wee " i 
eu. TEMPLI9 ]e-e23 10030240 + 004? 

TEMPE 20] 8+ 33 : 

, i et a 10030950 0049 
@ 7 TEMPC2iJemel; 1003026C Tt 0051 
Pe TEMPL22]¢= 2023 | —— 10030270 + 0053 

27 
P a TEMPL23]e*2062; an 10030280 T 0055 

MP ] a 0.0 o0 00 
@ 7 TEMPC25 J) ¢44,5@"23 10030300 * 0059 

p TEMP 26]+"2058023 
4) . | 10030310 T 0061 

COMMENT EFFECT OF ZERO ON SELECTED VALUES; 10030320 7% 0063 
er TEMPL 27 1e™ 03 10030330 T 0063 
- TEMP OG]+=605 10030340 T 0065 

2 TEMPL29]¢"2058*05 10030350 T 0067 
@ | TEMPL30]+4#2.50"03 ‘ | : , 10030360 7. 0069 
‘ TEMPC31]+=064103 | ss 10030370 t 0070 

, TEMP £32] +" 0@+03 10030380 7 0072 
@r TEMPC33]6=, 08903 8 ee. a 40030390 + 0074 
‘ai TEMP( 34] ¢~,.96+03 : 10030400 t 0076 

TEMPL35]¢4@"Q3 

10030410 0078 
@ a TEMPL 36 08443 . 1003042 3 goes. 
‘ TEMPL37 10623 ~—t0030430 y 0082 


Data Documents/inc. 


. *, ° 0 . a a : 


OcT1OVQN0N0LVO0DCOO00s gcT10000000000000008 1003057C 1 0085 28 


OCT1000000G0000000K% OCT31540000000000005 —_—| 10030580 T 0¢85 


e 
e FILL ANSC*)] WITH 9s 99% GCT1010000000000004>» 10030440 T 0084 e 
START OF SEGMENT atntuuutaa JQ 
OCT1010000000000114» 100 3000, ae 0030450 T 0085 3 
e OCT1204061115645707» 200» OCT11612172702436560 10030460 T 0085 @ 
400» OCT1162702436560510» 450s — 10030470 t 0085 — lg 
. 0612000000000000014» 0¢12600000000000143» 0030480 e088 | ' 
° | 1@ 
OL00C0000000004» 0CT1010000000000004» ’ 10030490 008 ii 
@ O¢T30100000000001145 acT10100000000001 18, 10030500 7 Goas — ie 
woe ' 
P OCT 3000000000000144» OCT 300000000000;/750» 10030510 T 0085 ‘le 
O€T3131200000000000% o¢T3123100000000000 10030520 t 0085 . 
@r 0CT3161217270243656, 0CT1162436560507534, | 10030530 + 0085 1 @ 
b 007T1162702436560510s OCT3123720000000000,,.~~— 10030540 T 0085 | le 
a OCTI0000OCOVODCOOOGs OcT31410000000000005 10030550 T 0085 __ ms 
@ |: 0¢13142400000000000% 9¢11142400000000000, 10030560 7 0085 Je 
; 2 
e 
e 


Nn 


p OCT1144000000000000" Os O3 RT ee, So ee 0030590 T 008 33 
14 yS 37 LONG, NEXT SEG 10 |@ 
aaa EE a aaa aa ear ~ $0030600 7 0085 le 
: -PNO « 33 10030610 Tt 0086 : 
; VERIFY 10030620 7, 0087 i 
END?- ) ee 10030630 7 0087 i 
: : : , i e 


PROCEDURE Pas. COMMENT 2,7 STRINGS; TOO40010 + 0404 


10040020 7 


TEMPLI Ter" 7 couoosa 7 O1O4 te 
TEMPEZJe" 45 3 oe 10040040 7 0405 rk 
TEMPL3J*"ABCDEF"; 10040050 + 0107 1@ 
TEMELA ISR A CGE. M3 ie fo eee. | ————— 10080060 7 0109 He 
i TEMPESJaeMARveIS™S . | 10040070 7 Ont. a, ae 


TEMPLOJE"L >= <Q9"; 10040080 + 0112 @ @ 


Data Documents/inc. 


@ & 
® TEMPC7JE"SART "3 10040090 tT 0114 
1 FILL ANS C*d WITH OCT??* OcT60» OcT2lece324e526e,~—OS™S 10040300 + 01416 
ss START OF SEGMENT Pek adeiaaheted hel 15 
e ; CT216023602560» UCT217541373152» UCT3310543604044> 10040,10 tr 0118 
0¢T6250516360703 -~ 10040420 7 0116 
8 
a § ON NEXT 3 0 
@} CYN©73 PNOC4SS VERIFY 10040130 7 0118 
: END: . of . 100401440 7 0119 
. i PROCEDURE PSSCOMMENT 303 VARIABLESS 10050010 0126 
| 
a as BEGIN ace 0050020 0 A 
a ge 
e* CUMMENT SIMPLE VARIABLES 3 10050030 7, 0126 
é INTEGER ALGUL> BAGGLs SVE » ACTS ee 10050040 Tt 0126 
e bp see START OF SEGMENT wtetene 16 
eo. CUMMENT SUBSCRIPTED VARIABLESS 10050060 7 0000 
Bs ARRAY SUBSCLOTS I> THOLOFI+ OMT Ie TONLO LeOtL}4VARCOT5S]$5 10050070 T 0000 
bc ALGOL©1233 BAGOL©ALGOL#  SVE* "ASSBLY™S AC® "SAVE"? 10050075 Tt 0007 
FOR I + 0 STEP 1 UNTIL 5 DO | | | 10050080 7 0010 
BEGIN SuaSCLI) * 1 END} aaa aaa 10050090 7 0014 
FOR I ¢ 1 sTEP 12 UNTIL 5 DG VAREI) ¢ SUuBSCC1)3 , 10050100 0017 
I + 63 | | | 10050110 7 0022 
VARLI“6] © ALGCLsTWU[1e1]) « 220sTOWL1°1) + TWOLI@>9I-5]3 10050420 7 0023 
EMP ¢_ALGOLS EMPL2 JAGOLS 3 Ste Some: 1050130 ia 
TEMPL4) © ACS > TEMPLES) « VARE12% © TEMPL6) * VARE223 | 10050140 7 0036 
TEMP ET) « VARL3I3 TEMP(8] « VAR[4]3 TEMP(9] ¢ VAR(5S]3. 10050450 tT 0042 
_TEMPC10] ¢ VARCO]s _—sOTEMPL11) ¢ TOWL1s193 _____ 10050460 T 0048 
“FILL ANS 4) WITH acTi?3s acta73, 0¢T216262224370+ ocTé62216525+ 10050370 7 0053 


START OF SEGMENT aeuWatetan 47 
OcT1» UCT2* OCT3» OCT4s OcTS*» OCTi73eOCTI343 10050180 7 0054 


17 7S 14 LONG, NEXT SEG 16 


3 


PNOSSs CVNeLL$ VERIFY : . 10050190 7 0054 


Data Documents/Iinc. 


% a ‘ * 


oo wm Oo FF WH = 


= 


2 > 8 8 & 


Ae A ee ee eT ee A ee 


(io 8 


ENDS 


BEGIN 


INTEGER I? VAR} 


ARRAY VARAYL1%29125]3 
COMMENT VARIABLES? 
1+ 79 i 

VAR ¢ 5497558138873 


TEMPCLJ*VAReL1t47]3 


TEMPC2]© VAR, (4088)3 
TEMPL3]© VAR, C40%6)3 
VARAYELAe1]¢ 19623 


TEMPC4Je© VARAY(4e11,645%2]3 


VARAYC1413,C43ti7) © 23 
TEMPS) © VARAY Cis1]3 
VAR ¢1133 

TEMPTS] © (VAR + 7) eT 


VAR€43163 


TEMPC7}) «© VAR,C43#2) + 1.03989]3 


OCT3652» aCcli7, 


CVNe©73 PNO*O$ VERIFY 


UN 


OcT1223 


- PROCEDURE Pos COMMENT 342 PARTIAL WORD DESIGNATORS3 


FILL ANSC#] WITH OCTOOO??77777777777> 


10050200 Tt 0056 
“98 63 LONG, NEXT SEG 10 
OO6U010 \) * 
10060020 7 0426 
10060030 + 0126 


START GF SEGMENT wstawatetne 18 


UCT 206 OCTO0ai» OCTiLs 


10060040 T 0000 
40060050 + 0002 
10060055 7 0002 
10060060 t 0002 
10060070 7 0003 
0069080 0006 
10060090 T 0007 

100601300 t 0009 | 


0060410 00 
10060120 Tt 0014 


10060130 7 0018 


10060140 7 0023 


10060150 T 0026 


"10060160 7 O0e7 7 


START 


19 +S 


10060170 7 9030 


10060180 7 0031 


10060,90 + 0034 


SEGM T rTTrrTTT se 19 


10060200 T 0036 

P LONG) NEXT SEG 18 
10060210 ft 0036 
0037 


10060220 1 


16 1S 45 LONG, NEXT SEG 10 


CO7FO0LO T Oics 


e e 
@ BEGIN 10070020 + 0126 @ 
@ INTEGER Le deloks 10070030 t 0126 
. START OF SEGMENT w¥aeatatue 20 
@| INTEGER PROCEDURE NOFORMALPARAMETERS? 10070050 r 0001 
ro NOFORMALPARAMETERS «1; 10070060 t 0004 
e" REAL PRUCEDURE ARITH (VAR1,VAR2¢VAR3)3 10070070 7 0006 
eH | | ; VALUE VARLeVAR2e VARI; 10070090 + 0006 
INTEGER VAR1* VARS VARS3 10070;00 7 0006. 
e | BEGIN _ 10070405 7 0006 
er TEMPLE 226 VARI 10070110 tT 0006 
b2 ee EMP CA Ie. MAR Gd ee ee er ee ee 10070130 + 0008 
= a TEMPE 3]¢ VAR25 10070320 7 C010 
ie : | ARITH « VARL + VAR2 * VAR3 + TEMPC1) | 10070140 t 0012 
é Ps eS i NO ge a 10070150 t 0014 
4 i P DURE ARAY(A)3 : NO701 60 MO 
@ |: REAL A 3 | | | 10070170 + 0047 
BEGIN Se 10070180 7 O17 
e A #63 ARAY © 43 10070190 + 0017 
eo; ENDS | | 10070200 r 0019 
BUOLEAN PROCEDURE BOOL(a): | 10070210 tT O02a 
2 | VALUE 83 BOOLEAN BG | a 10070220 + 0022 
e|. Taehin, « ie aS 2 Se 10070225 + Ocoz2 
air | “e00Lce a> 10070230 7 0022 
: ENDS See 10070240 7 0023 
i REAL PROCEQURE STRNGCONEsTHODS | 10070280 7 00 
| VALUE ONE> THOFREAL ONE» TWOS 10070260 + 0026 
@; | 
—HEGIN , Set ee ae 007026 0026 
ef STRNG)* ONES +# THOS | | / 10070270 7 0026 
| 1 ae : [0070375 tT 0008 
@ a 


Data Documents/inc. 


& 


0 a 5 ° 7 


Ee Ae ne Ae A ee . Tn = Ts 3 x. 


TE 


11s Je15+ Kelas Le33 

TEMPCL] « NOFORMALPARAMETERSS Se artig erga at aie 
TEMPE5] © ARITHCI 40 bel. 56)3 TEMPL7) © 63 
TEMP(C6)] © ARAYC TEMPL7I)3 


ae er ee en ne rere 


TEMP(8) + REAL CTEMPC3)=3)3 


TEMPC9I # STRNGCKI"STRING"(U)3 


AwS{*] WITH QcT OCT20» 552 OCT73, OCTI74, OCT4 


10070276 
10070280 


10070290 
10070300 
10070310 

0070320 


10070 30_ 


START OF SEGMENT 


OCT6» GCTO» OCT353 


10070340 


tT 0030 

T 9034 

T 0036 

T O042 

tT 0045 
0048 
0050 

Ge eR AER ae 

tT 90052 


bth Rtg ie ptr Bcc A ee 9 LONG, NEXT SEG 


CVN©® 93 PNO *73VERIFY 
ENDS 


20 1S 
ee 


PROCEDURE Pos COMMENT TRANSFER FUNCTIONS 3¢3059 KMe JUNE 19 633 
BEGIN iia 


REAL XsYoZeUs 


10070350 


10070360 


T 0052 


T 00593 


59 LONG, NEXT SEG 


loogdolo 
10090020 


10090030 


START OF SEGMENT 


“INTEGER a 


~~ 10090040 

ROOLFE AN ‘Vacr aon: eee, 0090050 
REAL PROCEDURE WHICHWASFORWARD(Q*R)S REAL Qe Ki FORWARD; 10090060 
REAL PROCEDURE CHECKTRANSFERCKKs YY)A 10090070 
REAL XX» YY3 10090080 
BEGIN 10090090 


ENDS | 
BOOLEAN PROCEDURE CHECKREAL( FeG)s 
——~“BROLEAN Fs 63 


BEGIN 


= GHECKREAL « F AND Gp 


END 


10090420. 


0090430 


10090340 


10090350 - 


10090110 


T 0126 
T 0126 
T 0126 


whew ee 


T 0000 
00.0 
T 9000 
rT 9000 
T 0000 
T 0000 


T YQ03 
T 0003 
7 0003 
T0005 


2\ 


20 


10 


22 


Data Documents/inc. 


R S Ss & : S & o 3 


eee 
a 


x RS ~. KY 
cx} NR —_ o wo 


oon mane wn = 


=a 
RO OS 


2 a 


= 
ao ~s 


: 


C « REAL (823. TEMPC14) © ENTIER(C)3. 


 TEMPCA3) © ENTIER (C)3 . 10090370 


10090380 7 0092 | 


REAL PROCEDURE WHICHWASFURWARD(QeR)3 10090161 7 0007 
REAL QeRs EE ee a _ 10090162 T 0C07 
BEGIN ore pete 10090363 rt 0007 

KHICHWASFUORWARD ¢ Q+R3 10090364 y 0007 

END3 Lo ~- 40090165 T C009 

TEMPLL]¢53 TEMPL2]+63_ we 10090370 r Oo11 

XO3e1s Ye2s He7s Zen3,3s AeTRUES B © FALSES 10090180 7 0015 
OG OMMENT CHECKOUT GF ENTIER TRANSFER FUNCTIONS = = ~~ ~~ ————«*«440090,90 7 0020 

TEMPL3J+ ENTIER (xX MOD YI | 0090200 ooze 

TEMPCAJ*ENTIERC CHECKTRANSFER(CX*Y) + Hel4631))5 10090210 7, 0023 

TEMP CSI*ENTIER(*2,999999999)3 40090220 T 0028 

TEMPLOJ*ENTIERCX)3 | | 10090230 003 
TEMPC7JCENTIER( #2) 10090240 + 0033 

TEMPCOJ*ENTIERCIF A THEN CHECKTRANSFER(5,.7e"2,01) ELSE  ~$0090050 T 0036 

MABM EAN) 3 teas 10090260 Tt 0049 

TEMPLOJ*ENTIERC IF A THEN REALCA) ELSE REAL(B))3 10090270 7 00952 

TEMPLIOT*ENTIERC If A THEN WHICHWASFURWARD (2e]e3ee) ELSE 10090280 T 0056 

2.723 ee ee 10090290 7 0059 

TEMPCLLICENTIER (CIF BGOLEANCO) THEN REALCA) ELSE IF A 10090300 7 0061 
THENC IF BOOCEANTH. (46311) THEN 10090310 7 0663 

REALCBOOLEANCIF A THEN 1 ELSE 204)) ELSE 5,4) 10090320 T 0065 

ELSE 1) +2,3)3 10090330 f 0068 

COMMENT = CHECKOUT OF REAL TRANSFER FUNCTIONS = ~ *$0090340 T O07] 

C#REALCA Eav_A Ds CHC oL4731 JS TEMPLIZI*ENTIERCC)5 at re Beat 10090350 OO71 

CeREALCCHECKREALC TRUE »BUOLEANCO)) OR BOOLEANCH,C4721)))3 10090360 y 0076 

tT 0090 


0096 


C ¢ REALC IF A THEN A OR B ELSE A AND B)S TEMPCISIJ©ENTIERCC)3 10090390 T 

. COREA i V BOUULEAN Hst4 ELSE BOOLEAN(H, FOO 90RDO FT OLT: 
TEMPLIGICENTIER(C) 5 10090410 7 0105 
C ¢ REALC IF 8 THEN SOCLEANCIF A THEN 205 ELSE X) ELSE 10090420 7 


0108 


Data Documents/inc. 


ey . . wo a . KS = at ~ 5S 


Cee 


BOOLEAN ABT 7 
a ee a ee eee | START OF SEGMENT stweaneten 


C IF A THEN BOOLEANCREALCA)) ELSE B ) )3 10090430 y O111 
TEMPCI7J*ENTIER(C)3 - | Sree 40090040 T 0113 
COMMENT CHECK OUT OF BOOLEAN TRANSFER FUNCS 10090450 7 0116 
D * BOOLEANC y Diy x)3 TEMPCIBJ*ENTIERCREALCD) 3 10090460 7 0116 
D'« BOOLEANC IF A THEN CHECKTRANSFER(6s 2) ELSE "A")3 10090470 7 0120. 
TEMPLIQIGENTIERCREALCODIS 10090480 7 0423 
0 ¢ BOOLEAN CIF B OR B THEN TEMPCIIJ*+TEMPCe2) ELSE 10090490 7, 0126 
, REAL CEOOLEAN (PAM IIE Se 10090500 7 0730 
TEMPEZOI*ENTIERCREAL(D) 25 . 7 = 10090510 7. 0130. 
COMMENT GENERAL USE OF TRANSFER FUNCTIONSS 10090520 7 0133 
EMP COLI+ENTIERCREAL (BOULEAN(REAL CBOOLEANCREAL CBOOLEAN(S)))I)I)F =F 0890530 F  0133° 
EMPL22J+ENTIERC CIF A THEN REALCBOOLEANCH)) ELSE REALCBOOLEAN _ 10090540 7. 0136 
(95))) + ENTIERCREALCBOULEANCH)))3 10090550 T 0138 
FILL ANSt*) WITH OCT5» OCTé6> GCTi» OCT2, "40090630 T O142 — 
STAR ) EGM STiTirere 
OcT2000CUV0000000003 UcT3s OCT3» 10090640 T 0444 
OCT2000000000000002" OCT1» OCTSs OCT3» OCT» OCTy, Octo» 10890650 T 0444 
acti» oct OcTis ocTOs ocT3» octal» ocTS» 10090660 rt 04144 
OcTi6; | 10090670 + 0444 


23 75 22 LONG, NEXT SEG 


CVNe223 | | 10090680 Tt 0444 
PNOeds 10090690 7 0144 
VERIFY oe 3 o090700 T 0145 
ENDS ee Page a oe 10090710 tT 0245 


1S 152 LONG, NEXT SEG 


PROCEDURE P10s COMMENT GEN, ARTTHMETIC EXPRESSION» IF CLAUSE. TO10001O y+ Oi26 
es PGNIGT DEC ALG BML BR : 10100020 1 0426 
BEGIN 10100030 rt 0126 


10100040. 7 0326 


INTEGER XeY 3 , 10100050 7 0000 


2a 37 


10 7) @ 


24 


Data Documents/Inc. 


@ 
@ REAL PeQ 3 10100000 Tt 0000 @ 
REAL PRUCEUURE GENARITH (XsYeA)s = 16100070 Tt 0000 
e ; REAL XeYs GBOULEAN AS 7 101000980 0000 
; 
@ : BEGIN 19100090 r 0000 
1 GENARITHe IF A THEN X7Y ELSE X MOD YS — _ fotoo100 rt 9000 
all >ND —_— 010011¢ 0003 
‘0 
oe; INTEGER PROCEDURE GENERAL (X+YsA)3 10100120 t 0005 
i INTEGER  X#Y¥3 10100130 7 0005 
sd rs BOOLEAN As 0100140 7 0005 
e d BEGIN 101001450 T 0905 
8 GENERAL « IF A THEN X,C46%2] ELSE CX+Y¥),6£4682]) 10100160 Q00 
e : | ENOS | 10100170 tT 0009 
p2 Ae TRUE? Be FALSE Xe43 YeOO; Pe 7/23 Qe P/4$ 10100480 7 Odl2 
at es TEMPC1) ¢ 53 TEMPE2)] « 73 10100490 1 0088 
r i TEMPL3]© IF B THEN 7/5 ELSE (GENARITHC75e¢TRUE) + 10100200 t 0022 
: GENERAL (S07 FALSE) sLautas St ~s«$0400210 7 0026 
oC TEMPCa4je IF A THEN "ABC" + “ABC” ELSE X,Cu7t1)]43 3 0100220 0928 
e | TEMP(S]¢ IF A THEN * GENERALC7*S5¢TRUE) ELSE = (P MOD @ MOU P)3 10100230 Tt 0033 
TEMPCO]¢ IF A AND @ THEN ="A" ELSE = "ABC = "COE"S 10100240 7 0939 
oC; TEMPE7] © IF B THEN @ ELSE =(GENARITH(10s5eFALSE) ol4582))3 10100250 T 0044 
a TEMPCBI©IF NOT A THEN CGENERALC2*4* TRUE) MOD X,C4583]) ELSE 10100260 Tt 0049 
| = | CTABY MOD FAY) + BFR 10100270 7 0053 
oT TEMP(9] ¢ IF B THEN P+@ ELSE C4 DIV 4) + X,C45t84) A 10100280 T 0055 
e TEMPC10]¢ IF 8 THEN X ELSE IF 8 THEN X ELSE IF B THEN X ELSE Ys 10100290 + 0060. 
TEMPLI1IeIF B THEN GENERAL(X?¥eA) ELSE IF 8 THEN 10100300 7 0066 
4 GENERAL (4e1eTRUE) MOD GENARITH (491,TRUE) ELSE 10100310 T 0070 
* FA THEN GENARITHC"ABC" » "ABC" » CA AND 82) ELSE | 10100320 7 0074 
@ | 05 10100330 y 0083 
Pye TEMPCi2J¢ IF A THEN TEMPCI) MOD TEMPC2) ELSE Templad x 53 10100340 7 0084 
a FILL ANSE®) WITH OCTS» UCT?» OCTOs OCT424446, 10$00350 7. 0090. 
e 


START OF SEGMENT wwkkawatae 25 


Data Documents/Inc. 


34 LONG» NEX 


<7 


10 


@ 
@ OCT 2000000000000003» 0CT2000000000444650»QgC10, 10100360 tT 0092 e 
T23, OCT2, OCTidds OCTOr oCTSs 10100370 7 Ood2 1 
@ | 1@ 
eee eae 25 yS 12 LONG, NEXT SEG 24 3 
4 
@ CVN© 123 10100390 Tf 0092 |@ 
6 
a ce a Sr ee 
— PNO® 103 : e | 10100400 tT 0093 ? 
@ |@ 
VERIFY. : | a ee 10100410 0094 8 
10) 
e ENDS 10100420 T 0094 @ 
12 
7 = 24 78 98 LONG, NEXT SEG 10 13 
) oe co oe t , 12 
PROCEDURE P1i3 ; af eedee sees et te 10110010 0126 15 
16 
r COMMENT 344,4,15+ LEGITIMATE USE OF "3 lol10o20 r 0126 |\@ 
18 
BEGIN ars 10110030 tT 0126 "9 
@ J @ 
: REAL PROCEDURE FUNCS FUNCe4 ee AT Ae 19110040 0426 21 
4 23 
@ » START OF SEGMENT wtkteke inn 26 2 @ 
v. 24 
p NS EMP ei egg, a ge ee 10110950 7 0903 2 
@ hg : be @ 
TEMP COD] 4040 404C4CoCo3) 2008 10110060 T 0005 2 
Dt 28 
@: TEMP [3]¢434(43)3 10110070 T 0007 of @ 
30 
I 31 
@: TEMP [&Jegrnn; 10110080 + 0009 i) 
‘ TEMP (5Jes4TEMPC4)3 "90110090 T OO0l1 
@ 2 @ 
‘ TEMP COJesTEMPC2),(4037]3 eit cit tue os tt TO OL OO: Te O00 1a: .. 36 
37 
er TEMP [7]*4+FUNC# 10110410 + 0017 33 @ 
| re 
e TEMP [83¢+64"13"+TEMPC7I+TEMP( 3)604421J34FUNCS 10110329 T 0019 40 
41 
TEMPLO] ES 4 3% EHO" 10110130 T 0025 ad 
: . ; 4 
em FILL ANSC#) WITH OCTS» oOCT3e gcTioO» ocT?77» OCTS» OCT» OcT4e 10119440 rt 0027 4 @ 
: a 
TART OF SEGMENT s*atatawen 14 
@ a7] @] 
OCT122» OCT7411 3 , 101101450 t 0029 i" 
9 # * A . . a at : . 49 
° 27 yS 9 LONG, NEXT SEG 26 1@ 
Spe : tsi ; 5] 

52 CVNe 93 PNOeliS TO110{60 7 0029 5 
@} 1@ 
VERIFY eee 10110170 7 0030 ) 

3 j 55 
@ 1 ENDS 10110180 + 0030 {@ 

@ 


oo n~ mm TF ® WH = 


Ry 
@ 


Ts 
Q 


Data Documents/inc. 


An Ae Ae 7 ee oe ee ee A eS. KS = 


&® ' = 5 


a: 


o:: 


PRCCEVURE P1l2s COMMENT THE ARITHMETIC QPERATUOR (= )3 10120010 7 0126 @ 
BEGIN ei. 10120020 fr 0126 


REAL AeBs 10120030 0 


START OF SEGMENT eteteketne 28 


A 15/43 Bee 386/43 | 10120040 rf 0900 
TEMPEijJe 4-2 3 TEMP [2] «© 293 3 TEMP (3) © 42813 ee Lol20050 0002 
TEMP(4] © A*BS TEMP [5] © Bra 3 10120060 1 Oo10 
TEMPLO) ¢ 152 3 TEMP (7) + 983 TEMP(8} ¢ TEMP (6) = TEMP (7 ]3_ 10120070 y 0014 
TEMPEGI¢A.C 9393" (B84+5),093 9)3 0120080 a 
TEMPLLO}¢*11°094)3 TEMPLALJ¢=219(94)953 10120090 + 0025 
TEMPLi2gj© +a = (+803 TEMP(13] * “g=("ays. 101201300 tT 0031 
TEMFCALG)¢ = TEMP [6)= TEMP[7]3 : Bele Oa sh Sy hs ee we OL OO EL O 00364 
TEMPCA5SI]© TAL Gigi-B.E 929)5 10120120 1 0040 

SE a egg Se ar 
INTEGER PROCEDURE CALC (DSUBD)s COMMENT THIS PROCEDURE USED TO FORM 10120140 r 0044 


START QF SEGMENT atutakatns 29 


FUNCTIONS i 10120150 7 0000 
INTEGER DSUaD; oe 10120160 7 0000 
BEGIN CALCe* BSUBD END; 10120170 T 0000 
TEMP C16J* CALC (#7) 33 ENDS | ee 10120180 Tt 0003 
9 ( NEXT S , 
TEMP CI7Je eMehanasgn; ee eee 10120190 0045 
FILL ANSE#} WITH GCT2>-0CT2000000000000001» UCT1» 0¢T1010000000001442> 10120200 7 oar 


"START OF SEGMENT #tetuwawen 30 


OCT 3010000000001442> OCT230s0CT 142» OcT66s OcTt225, 10120210 tT 0049 
OCTZO00000000000007» ACTZ00000000000001d» OCT1010000000001 442s 19120220 r 0049 
OCTIOLOOOOONNOO14Gs> OCT 2000000000000 ST a» UCT 20000000000005 20» 10120230 7 0049 


10120240 Tt 0049 


30 18 17 LONG, NEXT SEG 28 


OCT2Z2000000000080012, OCT2000000000212121 3 


CVN S177 , $0120250 7 0049 


Data Documents/inc. 


gi 8, 0 0 2 * + x 
& > & G 


8 8 8 es 


a a ay 5 5 BS 3 x. 


PNC ¢12; 
VERIFY 
ENC 


PROCEDURE Pi3s COMMENT ARITH OPERATOR x 


BEGIN 
INTEGER [Oslisleso13e 143 


REAL Ro» @ir Roe Rar Ras RSs 


ALPHA AQ» Alj 


REAL PROCEDURE YCL)3 


TEMPE3}¢11x123 
TEMPE A }¢11x143 
TEMPTS +1OxIa3 
TEMPLOJ¢14x143 
“TEMP O}¢14x133- 


10120260 7 0050 

SS 10120270 7 0050 
10120280 + 0050_ 

28 7S 55 LONG» NEXT SEG 10 
3.4.4,13 10130010 r 0126 
0130020 7 0126 
10130030 r 0126 

START OF SEGMENT «wetatatnn 31 
0130040 tT 0900 


10130050 7 0000 


BOOLEAN B? ~ 10130060 tT 0000 
NIEGER PRUCEDURE x (K)3 ee ae eee 0130070 3 son 
a NN ro cee oe POON OF 0000: 
BEGIN 10130090 7 0000 
XeKe7s == 10130100 T 0000 
ENDS 10130110 0001 


10130120 7 0003 


REAL Ls 10130;30 r 0003 

Yels3.74+3053 eee 10130150 T 0003 

BEGIN 10130140 7 9d010 

RES. ee ee ee ee re ToT30160 FOOTI 
YO«eOs [lets 12425 13¢5497558138873 [dees 10090470 T 0081 

TEMPLAI¢LOxIO3 | 10130180 7 o015 

TEMPC2)*10xla23 10130190 7 0017 


10130200 r 0019 
10130210 7 0023 
10130220 T 0024 


10130230 t 0026 
10130250 7 0028. 


LOT30S40 7 UGIO 


S @ 
e@ TEMPL9J@12xxX(2)3 10130260 7 0033 6 
; ROO} Riels R2e2,23 R3e8O583 Ruewy; R5e8O"20;3 -— 10430270 7 0035 
@ | 
3 MP O]+¢ROxXR 23 Buds tat as ot one Ate, 8 oe e 02780 0040 
4 
r ] 5 
6 COMMENT ws#*e** THE CARD NO A013029 RIGNALs»s REMOVE AQ130205 WHEN ss —— 30285 4z 
7 ee a 
er wettwaee VALUE OF 8 @ 58 IS KNOWN 10130286 Tr Qo42 
9 oon, Pt i i : a roe 
et TEMPLALLJ¢R1IX(R3I+13)3 10130290 r Q042 
2 TEMPEA1]}¢ ¢ (RI x ( R3_+ 13) ) = R33 | 19130295 7 9042 
@ |. TEMPEAZIeRGX133 | : | 10430300 + CO“ 
ns ah ae ais et See ea 
A OMMENT *wee* CAD NO AOTIO31 IS CRIGNA, REMOVE CARD NO AOL3031 WHEN 10130305 7 0048 
ee” . 
8 teeweaee VALUE FOR 8 © =20 1S KNUWN oe 10130306 0048 
9) * : er 
@” TEMPC13I]¢R1XRS3 10130310 t O048 
. TEMPLI3Z]e (R1 xR5) + ( ©R5)3 10130315 tT 0048 
23 
; COMMENT *#*#*** CARD NO AQ13G¢32 IS ORIGNAL REMOVE CARD No 40130325 a 10130316 tT 0051 
5@ P tetuanes WHEN VALUE FOR 8 @ =20 IS KNOWN 10130317 T 0051 
8 TEMPL14]¢R4XR53 10130320 T 0054 
8 


v 
{) ¢ 


COMMENT ##e4* CARD NO AQ13033 1S ORJGNAL REMOVE CZRp NO 40130335 10130327 


weeeeaeke WHEN VALUE FOR 8 @® 58 AND 3 


@ =20 IS KNOWN 10130328 


TEMPL151¢R3xR53 | 10130330 7 0054 


: TEMPLI5]¢ (R3x R5) = (R3x RSIE- | 10130335 tT 0054 
iq TEMPL16]©R1XY(6.8)3 —- 10130340 t 0057 
AOeMO"S Ale"AANS BeTRUES | 10130350 F 0060 
TENPLATDe3ybaxMBBM On, 10130360 T 0062 
TEMPE1B8)¢1ixAls Pe ey ee ee ee ~ 10130370 fT 0064 


ERE eal 10130380 


TEMPE20]#267xCIF 8 THEN 7 else 2) er ee a 10130390 T 0069 
“TEMPL 21 TeXC=5) VCO, 8)3 ae ae 


Teese. 


10130400 
TEMPE 2 Je"Bo"xAl3 ; 1Q 1 40 4 0089 
we 


HPCZ3DeAOALS es f° 10830420 r 0091 
TEMP[24]e11eC45t3) % [aetbatal; | OLa0e30-% 0083 


re ee ee ee ee ee en ee 
2 ; Ss & : 


Data Documents/Inc. 


wt A 5 TS Th 5 ~. 3 


TEMP(25]¢A1,£4296) x Riel4523)3 10130440 T 0097 

FILL ANSE*] WITH OcTOs UcTo» OcT2e Qcf2000000000000001» == = = = =—— 16130450 F 0400 
_ _ START OF SEGMENT wketukwtew 

OCTOs OCTIsOCTOOO777777777777720CT2007777777777777» 10130460 T 9402 

OCT22> OcTOr actos — 10130470 7 0102 

T 77U777772ITT» T as 0! f BO T 0102 

OcTO» OCTOs OCTi6s 10130490 T 0102 

OCTIV17131631463146, Oct2i2i, Ocr2000000000002121» 10130500 7 O102 

0671132271463146315» OcT20» OCT4735062» 0430510 7 0402 

OCT122006» QOCTO» OCT2i; 10130515 fT 0102 


32 78 25 LONG, NEXT SEG 
ENON 23. 1-7 Sen me 10130520 7 0402 


PNO©133 10130530 T 0102 
Bia SEE acta cle Rn oS tw et NO as a Br Be eee ee 0430540 0403 


ENDS 101390550 fF 0403 


314 1S 112 LONGs NEXT SEG 


PROCEDURE P14s COMMENT ARITHMETIC OPERATOR 4 EK 7 NOV 62% 10140010 rT 0426 
' BEGIN 10140020 Tt 0126 
INTEGER JeK i aia 10140030 T 0126 


_ START OF SEGMENT weatatetan 


REAL AvBs : 10140040 + Occd 


ARRAY yCii3d3 10140050 


REAL PROCEDURE PROD (As8)3 REAL 10140060 
BEGIN Os | 1140070 t 0004 
FRO e Ax | ae a fois0080 T 000) 
ENO: | 10140090 1 0003 
TEMPE J¢1023/25 ee, Be a a : . 10140100 T 0006 
TEMPL2]*1023/10233 oS | 10140110 t 0009 


TEMPE 3)]¢ =0713 10140120 7 0011 


10140430 7 OoLa. 
10140140 F OO14G 


“+ 


32 3 


31 19 


10 


33 36 


Data Documents/inc. 


@ 
@ A1253 10140150 r 0015 
1 BeBs 10140160 T 0016 
2: YCLleVcasevc3let5ss 10140170 T. 0017 
e : TEMPLES] © "AKEHE"/ 9 AK EHENS 10140180 T Oo2t 
TEMP (6) ¢YC21/783 oo 10140190 T 0024 
ad ; TEMPCL7}¢ K/J3 10140200 0027 
@ k TEMPL8]*A/BS 19140210 t 0029 
TEMPLOJ¢K/B3 —_ 10140220 7 0034 
°.. TEMP{10)¢PROD (As )/1253 0140230 t 0033 
6 
@ k TEMPLIL]¢AxB/ (2048) 5 10140240 T 0036 
ae TEMPL12]¢A,03983)/13 —— = 10140250 7 0040 
e FILL ANS¢*) WITH OCT10;0000000007774» OCT». 10440955 T0042 
sd a START OF SEGMENT wkktuetaten 34 
OCT2000000000000000» OCTo» OCTys OCT3s = = ——”—S*«404:40260 *T + 0044 
or | QCTS» OCT31» OCT2» OCTS» OCT31» OCTIZ _ 10140270 T 0044 
e: 34 7S 12 LONG, NEXT SEG 33 
CVNe 12 10140280 T 0044 
° PNOe 143 a 10140290 0045 
= VERIFY 10140300 tT 0046 
‘ee ENDS 10140310 T 0046 
Pe uk LN N ¢ 
td 
PRO R P s_ COMMENT THE ART THMET OPERATOR (QIYV)s 0 0150010 0126 
@ “BEGIN : — i 10150020 7 0426 
ar REAL AsB3 a 10150030 T 0126 
__START OF SEGMENT see¥atenee 35 
@ f INTEGER, Ce DF | as 1o1s0040 7 0000. 
re a NTEG aa a7 SUR ALOT rae 75 fr ar 5 . RG oT 7 cOSUF oreere Z 
F ee FUNCTIONS 10150060 7 0000 
a INTEGER DDIVOs 19150070 7 ace 
@ 


BEGIN 


INTEGER A$ 


10150080 T 


TL 


Data Documents/inc. 


o 4, 7 4, F n = 
2 ‘ ree] & 5 " fer - S ns x *. ~ BS x 


a: 


A ¢ 25 DIV DDIVO + CaLcZ © a3 END; 


Ae 137/53 B + 69/553 C * 893 D + 893 


START OF SEGMENT 


TEMPCA Je 270 DIV 9 3. TEMPC2}6 A DIV Bs TEMP C3)¢ caLcZ ¢ 5 OIV 


CALCZ (5)3 


TEMPEDJ© Cel 4236) Oly 


TEMPEL4]e “ABNDIV “ANG 


TEMPCO] © "270 DIV 9 3 TEMPE 7Jea DIVC"B)s 


TEMPE9]© *"AB" DIV "As TEMPL YO] 


TEMPCiL]¢ 270. DIV 9 DIV 33TEMPC2]ea~ DIV B DIV 43 


TEMPLI3J© CALCHEC 5 DDIy caALCzZ( 5D] 


TEMPCUSJeNeC42%SJ0IV 3 DIV As 


Del42ioys 


D.Cuar6j3 


DIV 13 


Ce039'9] DIV O.Causte)s 


TEMPC16) © 15 DIV 25 DIV BS TEMPCI?) € B DIV CALCZ C25) DiV AR 


: TEMPEI8]¢© CALCZ¢ 1IDIV 1 DIV As TEMPCA9]e "AB" DIV C,04583)3 


TEMPC20J© C.C4226)0IV 5 DIVNans 


FILL ANSE*] WITH OCT36+ OCTi» OCTi» OCT1ols OcTi, 


OCT200ND000NCU0DDIbs ACT20U0000000000001»% 


WoT z2oougq00c0uda 01> TcTs* Uclias Uctos 


OCTO,s OCTO, OCT21225 OCTOs 


CWN © 207 
PNO + 153 
VERIFY 

ENDS 


PROCEDURE P16s COMMENT ARITH GPERATOR MOD 


BEGIN. es Sale | | 
_- INTEGER 10s Ide 12 13s Id, 153. 


Te 


Os 


OCTeQV000G000000001»s 


10150120 r 0010 
10150430 Tt O0O41 
—10150;40 7 0017 
10150150 7 0023 
10150360 T 0025 
10150;70 tT O03, 
101501380 7 0036 
10150200 Tt Oc40 
tolSozl0 + 0044. 
10150220 7 0049 
10150230 T 0056 


OCTOs OcCTOr OCT0s, ~~ 


37 +S 


3.4.4,13 


10150240 1 


10150090 7 9000 
ON XT SE 
10150100 T 0000 


10150110 7 “O004 


0059 


10150250 T O0v6l 
10150260 F 0064 
10150270 YT 0061 


etek ke 


te Woe Wi Woke & ie 


20 LONGs, NEXT SEG 


10450260 7 00614 
10150290 0061 
10150300 T 


40150310 7 0062 


0062 


10160010 rt 0426 


10160020 7 0126 


35 +8 67 LONGs NEXT SEG 


30160030 7 0326 


START OF SEGMENT stata wank 


36 


35 


35 


10 


38 


Data Documents/Inc. 


@ 
S REAL ROsR1I>R2-R3eR4oRS5 10160040 0000 
INTEGER PROCEDURE Z(X-Y)3 10160050 0000 
ad INTEGER Xe ace ee eee 10160060 0000 
) BEGIN 101600706 0000 
ZeX+Y3 —_— 10160080 0000 
° ENDS 0160090 000 
@ 10¢O3 [lets L2e23 13175 Lyeno3s 15e983 10160100 0003 
TEMP(1]¢10 MOD 113 10160310 0009 
Is TEMPL2)¢13 MoD 123 0160120 00 
ef TEMPC3)#4+3 MOD 113 10160430 0013 
ie TEMPL4)*15 MOD T2; +=. 10160440 0015 
e al TEMPL5S}3¢15 MOD 143 AIP as 10160150 0018 
@ 2 TEMP C6OJeI3 MOD 14; 10160160 0020 
; ROCOS Rlels R2€2,25 R389; R42; : - ~ 10160470 0022 
e : P a M Fs fener t pee ees POSE OT RO OOP 6S nn. 
@ Ei TEMPCEJeR3 MOD Rez 10160490 0028 
e TEMP(9J¢R3 MOD R15 10160200 0030 
EMPLi0J«15 MOD Rees 01602710 00; 
e TEMPCALJe15 MOD C13 + 12 + Red; 10160220 0035 
: TEMPLlaje"a" MOD 4; i. nal 40160230 0038 
. TEMP(13)¢37 MOD CIF R2 = 2,2 THEN 6 ELSE 3)3 10160240 0040 
& TEMP[14]¢48e5 MOD Z(3%3)3 10160250 0045 
TEMPCIST+ 13.042t6] MOD T2,C4583)3— nae 10160260 0048 
| COMMENT *####e* VALUES IN THE ANS ARRAY WERE MODIFIED To ACCOUNT 10160270 0051 
e | tees FOR THE DEVIATION GF THE CONVERT ROUTINE 10160271 0054 
a : asthe TEMPCS] = 1150631463146340 oe o 10160272 0054 
wo ANS EB] it5063 1468 T4OTe 016097 O08 
2 — 10160274 005 
Or TEMPE®) @ 1157146314631500 10160275 0054 
‘ ANSE9] = 1157146314631403 ao 1asre “0051 


Data Documents/Inc. 


ey é a a = Th 3 x, x. ~. 
5 & oD b © & & oS es . 


10160277 T 0051 e 
ST VEMPELO TS STSL STAC STOO ST OT FORTE 7 0054 le 
ANSC10] = 3141314631463146 oe 10160279 7 005, : 
10160280 T 0054 a 
TEMPCLILI= 31426344631463945 ES 10160281 tT OCS; le 
ANSEL) = 3142631463146314 , _ 3 0160282 7 005 | ; 
FILL ANST*] WITH OCTOs UCT1s» OcTOs OCTOr UcTos 10160285 1 OCS1 @ 
poole g Bey _— START OF SEGMENT weestnawten 39 le 
UcTr» OcTOs OCT1150634463146340, Pogue, 0160290 T 0053 __ K 
0CT11571460314631500, OCT31413146314631u7, 10160300 T 0053 1@ 
OCT3142631463146315,0CTL»OCTI>OCTII54o00000000000»0cTis ~~ O1 60310 FT 0053” le 
| ht ee eee ___39 38 15 LONG, NEXT SEG 38 3 
CVNEG153 10160330 T 0C53 1e 
a PN DOL Gj re ee eon ae et ee 40160340 T 0053 He 
— NN te es ye See ent Sa 10160350 T 0054 P 
ENDS 10160360 7 0055 /@ 
| «3B FS.) 63 LONG, NExt SEG 30 ‘le 
PROCEDURE P17s COMMENT ARITHMETIC OPERATOR * Ex 7 NOV 635 | 10170010 T 0126 
| 1@ 
BEGIN ; 10170020 r 0426 i 
INTEGER JoK3 | 10170030 tT 0126. 1® 
START OF SEGMENT uauduawtaw QO” 
REAL YsdeWs | 10170040 T 0000 
ARRAY XC183030 5 18170080 7 9000 
3 : : : 1060 ae ; 
INTEGER JoK3 | | 10170065 
BEGIN, i oe | i / 40170070  o001 
sue = 10170080 7 0001 
ENDS 10170090 t 0003 
et Ss Sweubeiowan oe ae ; a 40170091 70006 
Jas 10170100 Tt 0008 


Data Documents/inc. 


oo 2s NN DW Oo RP WY DH = 


ar ey 
om 3 


A Se ee A ee A ee 5 


A 
wo 


@® © = & 


: 


> & YN & 


~ ae ~ 
Po ND § & © eOaYy @ 


EMPC8)¢ Eee eee ee ee 


COMMENT THE FOLLOWING ANSWERS WERE MOOIFIED TO OBTAIN A CLEAN LISTING 


waekak 


thane 


4k 


Ke 4; 
Y ¢ 10,03 


Zt O,2xi3 


XCilexteje XC3]¢ 3,0; 


TEMPL1}¢ 
TEMPL2J¢ 
TEMPC3J¢ 
TEMPLGJ© 

Botan 
TEMPLO]¢ 
TEMP(7J¢ 


axe} 
Ja? 
C74) es 
O«K3 


Ox, 


Y*O3 
Z2*C=O)3 


CWAY I CHE 


TEMP(G]© CY*Y)*2,53 


TEMPCL1OJe Y*2,03 


TEMPCiijJe (Key)*(Ux1,5)3 


TEMPEL2]¢ (K/Y)#0.03 


TEMPE igd© (*1e5)*CO)s 


TEMPE LOIECYXY) #¢70)3 


TEMPCISJe xXCide xl2]3 


TEMPCL6J*¢X(3] * SUMC USK); 


TEMPCA7J@ xXL2)ed,La7tdds 


TEMPCiBle 1*"000000"; 


CONSTRUCT 
c(4a2) #2 
3*3 


ANS SHOULD BE 


X1e5) 


OcT 1¢ 


OC?...33. 


ANS 18 
OCT10.00000000002 


0¢T33,00000000004 ; 


FILL ANSE*) WITH OCT4s UCT20» OCT1010000000000002» UCTO» 


OC 2000009000000000» UcTis OCT. 


10170110 
101701420 

0170430 
10170440 


10170150 
10170160 
10170170 
10170180 

3 20 90 
10170200 
10170210 

0170220 
10170230 
10170240 
10170250 


10170260 


10170270 


10170280 


10170290 


10170300 | 


10170310 
10179320 
10170323 
10170324 
10170325 
10170327 
10170330 


START OF SEGMENT 


OCT1010000000000002» CTO» OCT144» 0671131000000000002» 


UcT1 


» OCTi» 


0¢7121392159561353071>» 


OC6T1133300000000004» 


T 
7 


eketeratan 


0034 
0036 
0039 
0044 
0048 
0052 


0056 


0059 


0062 
0066 
0071 
0077 


0082 


0084. 


0084 
0084 


0084 


0084 


40170340 T 0086 


10170350 T0086 


10170355 


T 


0086 


41 


Data Documents/Inc. 


0 oS ye Se Se 3 S. ~ 3 


TE 


QOcT1331» OCTi» OCTiLs 


10170357 T 0086 


CVNe© 183 
PNOe© 173 


VERIFY 


41 9S 18 LONG, NEXT SEG 40 
10170360 7 0086 | 
10170370 7 0086 
10170380 1 0087 


0 0390 008: 


PROCEDURE PIGFCOMMENT ARITHMETIC EXPRESSIONS WITH MIXED TYPES; 


BEGIN 


40 7S 99 LONG, NEXT SEG 10 
10180010 7 Q126 


10180020 Tt 0126 


TEMPCiJe C579 233 TEMPE ZJe 27413,27%34 TEMP ale 27% 13,27x33 


TEMPCO)¢2,7x3 x344x45 TEMPL5 62,7 x343,4x4} 


TEMPCOJ]7/43 TEMPO] ¢9/ 2,33 TEMPL8)¢2,3/25TEMPL9 I] ¢27,3%2/ 


10180030 T 0426 


10180040 Tt 0434 


27,3013 ____ 10180050 ft 0440 


ee TEMPLI0OJ©8 MUD 9S TeMPLiL]© (=8)MOD 16635 TEMP Ci2}]*7e5 MOD( 395 10180070 7 0449 _ 


TEMPC133©1.5M00 0.73 


FILL ANS(*] WITH OcT2000000000002437% OcT1121026365605076" 


OCT21112062675341220, OCT1121561217270244» 


TeT11325546314531408 UG 115 1600000000000" 


06T1143723364675 35?» 90T11411146314631447% 


0071151463146314632» OCTyO» 
G0741506314631463443 


CVNe|133 
PNOeLBs 
VERIFY 
END 
PROCEOURE P19s COMMENT PRECEDENCE OF ARITHMETIC OPERATORS 
—TNTEGER Tio Tes T3e Tas Se TIO TN TVI— 


___START OF SEGMENT 


10180080 ft 0157 
10180090 T 0459 
4e 


ere kaeakak 


10180100 Tr 0161 
10189410 T 161 
19180;20 T 0464 


10180430. 


10180137 1 


42 7S 13 LONG, NEXT SEG 10 


3,4,53 


10180440 t 0161 
0180150 
10180180 7 0462 
10180170 + 0462 
10190010 7 0174 
10190020 7 0474 


es 


TOIsOgTO-y 0174 


Data Documents/inc. 


START OF SEGMENT whwwnwewae 43 @ 


REAL ROPR1sR2aR3eRboR5eROS 7 10190040 7 0000 
3 Oh AOA A - 
: a é ee : pe a ae a So OL9053.6 WOOO 
; NT R PROC R ; 
; INTEGE EDLRE x(Gehe1Xx)3 10190060 T 0000 
Ps VALUE GoHoIX3 10190070 7 0000 
k INTEGER Geto I x3 Llolgonaeo 0000 
r ) i BEGIN 10190090 tT Q900 
‘ i - EGS | | 10190400 Tr 0000 
i 1Xe33 1oi1g90110 0000 
e X¢G3 10190320 T 0004 
f A Ne Se a ae ap ep On eT 10190430 7 0002 
NTEGER PROCEDURE YCuelY)3 z ttt aa O00: 
eo; VALUE vs Ilys 10190445 T 0004 
6: INTEGER JolYi eee "40190350 T 0004 
7 
P BEGIN 10190160 t 0004 
of ia 
JelY¥e2; 10190170 T 0004 
ENDS ; 
° 10190480 7 0006 
REAL PROCEDURE Z(KsLeMeROsRLsR20R3 Di 10190390 7 O009 
e : VALUE KsLoMsROsR1L > REPRSS 10190495 + 0009 
p INTEGER Ki 10190200 0009 
oe. | 200 + 006 
, ‘REAL LaMrROsRyeReek33 —— 10190210 rt 90009 
@ BEGIN 10190220 Tt 0009 
a: ROK +L} ae Cee ee ee ks 10190230 7 0009 
: RieKeL; . 10190240 7 0011 
@ } ReeK/L3 10190250 7 0012 
e: RSE ut | 10190260 7 0043 
+ (| eee ee ee 7 ? . . 0190270 7 00 
@ | END 
| 10190280 7 0015 
a: Tle1s 12625 13633 [464s 15655 [106105 Ixe0} TV} —— 10190290 7 0018 
64 EMPCiJeI) #. 12x13 * 14 =C110 DIV 15)3 : | 10190300 7 0028 
r ) TEMPCeJeri + T2x13 * CI4 = 110 DIV 15)3 10190310 T 0030 


Data Documents/Inc. 


°, 73 5 TE = . 5 = 


TEMPCS]¢I1 * T2X(13 * 14 = 110 DIV 15)5 
TEMPCG}*I1 + (12 x 13 * 14 © 110 DIV I5)3 
TEMP(SJe(Li+ 12 x 13 * 14 = 110 DIV 15)5 


TEMPCOJ*C(1T1 + 12 x 13 * 14 * 110) DIV 153 


TEMPE7J© CilelaxI3e3)~110 OLV 153 


TEMP(8)*(11 + l2xl3) * 14 = 110 DIV I53 


Mr [21s ae eS eee Ll * Q 


“TEMPCLOJeIT + 12x13 «14 © 110 DIV 155 
TEMPEiijell + 12 x 13 * C110 > 14) Div 153 


TEMPE A2IeTI + (12 x 73) * 74 = 110 DIV 153 


10190320 
10190330 7 0042 


~ 
oO 
oO 
w 
ao 


10190340 0048 
10190350 7 0053 


10190360 fr 0059 


10490370 7 0064 

0190280 N70 
10190390 0075 
10490400 T 0081 


~“t 


10190410 7 0087 


TEMPCA3}¢110— x 11 412 MOD XCLie 12 I39e1VaYCIie12)*1t912 OLV 10190420 T 0093 

15"11+133 10190425 Tt 0102 
TEMPCASJeCTLOxydey] MOL XCplepTerT3*VCp4e 5 *14"710 pry 10190430 T O04 

1591141393 10190435 T O114 


TEMPLIi5Jel1Ux]iel2 mob XCqlet2o1a)*¥([4r15)el4-]1 


C1I5"11+13)3 


DIV 10190440 T O714 


O122 


10190445 


ROLOS R1eOF ROe0s R3eOF Rbo@ 4} R5e5497558138873 ROe™ 2s AdeMANS 10190450 T 0425 


TEMPL16)¢13*1 3x12) 
EMPL17]¢13x]4=123 
TEMPE 1BJe13%C 1481295. 


TEMPLI9I¢ 14/1 2413x123 


TEMPLeglel5 MOD 12 + 134 


‘TEMPC2zjel3 DIV. 12 MOD 12s 


TEMPE 22]¢13"ROxRGS 
TEMP L231 ¢RA+ 5° R6xg MOD 43 


TEMPLZD¢(RO-RZ¢RIKZ (Ge 2rROPRL»RZARIARAII/ (R246) 


TEMPTS T+22*CIF T1e0 TREN T2KRS ELSE KENT 


vo Yolk 


TEMPLZ616"AAMERS MOD. ta 
TEMPLS7 1eAL PRS Div (T+ )=68 eur ersIT 


10190460 rt 0434 
101904709 0134 
10190480 1 0137 
10190490 T 0439 
10190500 T 0143 


10190510 T O445 


10190520 7 Ojas 
10190530 y 0151 


10190540 


10190550 T O16] 


10190560 Tf 0166 


40190870 + 0166 


—To190580 7 0170 


Data Documents/inc. 


« 
TEMPC2B1¢ZC 1+ 2eROeR1eRzeR3eR4)xRO} mane . 
TEMPL291¢Z(653-R1 R2-R3PK4ZRS)xR2+RI“ROXRIS — ae 10190600 7 0178 
TEMPE 30 J¢(4X8=344454245)/93 10190610 7 0483 
CUMMENT ANSWERS AND GLUTFUTS 10190620 T 0188 
FILL ANSE*] WITH UcT24i* Octe3» Octaa?e 10190630 tT 0488 
° 


; START OF SEGM T gkete te tan 44 
OCT2a4l- OCT2ais CCT 36 10190640 Tt 0189 


OCT65» OCT4537> 


10190650 


= 
eS 


QcTaé1s 


= 
= 


: 
8 : 
OCTi4» OCT12» CcTi}» 10190670 7 0489 

ae OCTi1» OcTia2> UcTé, oo F0190880 T 0489 

i ACTiOs OCT4s OCT a Sty PO eee, 0190690 0189 

OCTis OCT» OCTOs 10190700 7 0489 

p ~— a CTU OCTet@er CCteless er ee ee 10190710 7 0489 

i OCTOs OCTO, acta; 10190720 7 0389 

, 44 8 30 LONG» NEXT] SEG 43 

CVNCSOF : 10190730 7 0469 

: PNO+193 | 18190740 7 0390 

VERIFY 10190750 + 0194 

P END& 10190760 7 191 

: 


an 
BOOLCAN EXPRESSTON USING IF CLAUSE ; 10210010 7, 0474 


203. 


PROCEDURE P2ls COMMENT 


BEGIN Oo tee | Oe | | | 10210020 7 0174 
BOOLEAN. At Be Ce Dek3 0210030. , 


START GF SEGMENT wtkwndatin 45 


— INTEGERS Hegs 


: Boas | | 10210040 
“BOOLEAN PROCEDURE BO0L (BL SUBBL» A,B); — 


10210050 


BOBLEAN BLSUBBL» AB} 10210060 yr Q000 
, BEGIN BOOLé A OR BOR NOT BLSUBBL END? "F755 0070 F 00007 
a BOOLEAN PROCEDURE SECBOOL(BSYBAL»AsB)s , 19210080 T0004. 


o & TS & 3 


ROOLEAN BSUBBL + Arg; 10210090 T OG04 


Data Documents/inc. 


2 zy 5 5 = . BS =. 
> oD on 2  & ke 


a 


BEGIN SECBOOL ¢4 QR NUT BSUBBL ENDS 10210100 7 0004 
B ¢ FALSES At TRUES He 143 Je 143 Ce FALSES D® FALSE; E* TRUES = =: 10210110 7 0008 
Has ad wen Rit Us : P cee g ce 4103 Ee 02140120 06 
Ae IF TRUE THEN A ELSE BS TEMP[2]© REAL CAe(47#1))s AeTRUES 10210330 r 0019 
ACIF A THEN BOOL(ByAsB) ELSE IF B THEN C ELSE DB 2 10210140 7 0024 
TEMPE3J¢ REALCAsC47#1])4 HeHtus Se ae 10210350 + 0029 
Ae IF H4Jd THEN HeJ>Hed ELSE AS TEMPC4J© REAL CA.C47811); 10210160 rt 0032 
Ae TF ARS HEN ESTE “dH THEN A ELSE 8) ELSE TFC THEN A ELSE DF 10210170 y 0039 
TEMP(S]¢ REALCASIQ7H1]93 : Ngee 10210480 T 0045 
Ae IF A THEN TRUE EQV FALSE ELSE TRUES TEMPL6] ¢ REAL (Ae(4784))3 10210390 T 0047 
At IF A THEN He J ELSE BS TEMPE7] © REAL Cael47419)3 0B L0200  ~0052- 
AeIF HéJ THEN BOOL(B»ArB) EQV SECBOOL(BsA»B) ELSE CH aa 0210 0@57 
TEMP[8] © REAL CA.(47#14)5 ; 10210220 T 0063 
at IF B THEN CH4J) = CH*U) ELSE IF Hey > H=y THEN A ELSE 83 ~=«*'10210230 7 0065 
EMPLOJ*REALCA,C4731))3. Bee Reece ee Aa 0210240 007 
At IF a THEN CIF H3J THEN C ELSE A) EQV CH>¥) ELSE B3 10210250 T 0074 


 TEMPCLOJ* REALCA,C4791993 10210260 


Ae IF A THEN C OR D ELSE ES TEMPEAi]* REALCA,(a7S1I)s 10240270 

ACIF 8 EQV A THEN 300L(8+AsB) OR SECBOOL(B» AB) ELSE C3 10210280 7 0086 
TEMPCi2d* REALCA.CGTIi]I3 ———«daA LOI FF 0OSa 
Ae IF @ THEN H > J OR J > H ELSE IF ¢ THEN D ELSE As 10210300 7 0094 


TEMPCI33¢ REAL CA, C4721) 93 10210310 T 


Ae IF A THEN CCIF A OR B THEN C ELSE A) OR CA AND BY) ELSE ED O210320 + 0101 
TEMPCLM)¢ REALCAQCQ7H1925 | 2 10210330 + 0407 
ACIF 8 THEN BOOL(BsA28) AND SECBOOL(B+AsB) ELSE A AND B3 10210340 0109 
TEMPLASI@REALCASC4741295 re . 10210350 + 0114 
Ae If H # J TREN CIF A OR B THEN C ELSE A) AND (B OR D) ELSE Es 10210360 7 0116 
TEMPCIGIGREALCASCA7I1I)3 ACTRUES 10210370 + 0421 
Ae ir a OR ce THEN ‘NOT 8 ELSE EF TEMPCAT I REAL CAS C47E1993 a 10210380 on 0325: 


Data Documents/Inc. 


Ceereeseses 


Ae IF aA THEN A EQv B ANU NOT C ELSE IF C THEN A ELSE C 3 
TEMPLISIe REAL CA,C47281)03 


OCTO» OCTi» OCT1s OCTie OCTOs OCTis UV 


7 OCTOs OCTOs OCTOs, UCT1» OCTOs» OCTis OCTIs 

: Be eee 
a CVN « 203 

p2 PNO ¢ 213 

F VERIFY 


ENDS 


PROCEOURE P22$ COMMENT RELATIGNAL OPERATOR < 
BEGIN 


INTEGER [OslisINis les I Nev IMAX» [MING 


7. 2 ee ee TB = x. 


= 


INTEGER PROCEDURE X(K)3 
INTEGER Ki 
5 BEGIN 


 XeKeas 


ae If @# THEN HiC4583) > Jof4216) ELSE 

j TEMPLIDJ©REALCASC47213)35 

B At IF A THEN CIF H,C4533) > (4.04216) © H,C4583)) THEN CO 
H LSE A) GR NOT (A OR 8) ELSE AS TEMPL20)+REALCA,L47#1)) 

" FILL ANSC*] WITH UCTL» OCTi» OCTir OCTi» OCTO» OCTy» 


START OF SEGMENT . 


46 45 


10210400 7 
10210410 fT 


10210420 


10210420 7 


10210430 T 
0219440. 


10210450 T 


0210460 


10210470 


20 LONG 


START @F SEGMENT 


ENDS 
REAL PROCEDURE Y(L)5 


REAL LF 


BEGIN 


“[O*0$ [lels INL©=13 [2623 [N2e=23 


45 +S 


10210480 1 


19210490 T 


10210500 


190210510 1 


20010 


10220020 Tt 


10220030 T 


10220040 T 
10220050 T 


10220060 T 


10220070 7 


10220080 7 
10220090 T 


10220100 7 


10220110 Tf 
0220 0) 
10220130 1 


10220440 T 


162 LONG, 


eekekaec khan 


“0004 


45 


0157 


NEXT SEG 10 


0174 
47 
0000 
0000 
0000 
0000 


0003 
0003 
0003 


Data Documents/Inc. 


0 ry + a 5 5 


oo nw Dm FT FF WN = 


35 
36 
< 
38 
; 
0 


£5 s 2 SBESES SREBER 


IMAX€5497550138873 [MIN@€"54975581 38873 


TEMPCi}©IF 0.0 < 1.0 THEN 1 ELSE O3 ee rer ep ge ee 
TEMP{2)*IF "1,0 < 10 THEN 4 ELSE 03 | er ee 


TEMPL3)]¢ IF 4,314@63 < X(1) THEN 1 ELSe 03 


TEMPC4)©¢ If 4,314@63 < LO.C4784) THEN 1 ELSE 03 


EMPES JTF 1,75@46 < * " THEN 1 ELSE Q3 
TEMPCOJ©IF "1,75@"30 <{1 THEN 1 ELSE 03 
TEMPC7J#IF Ti < IN1 THEN 1 ELSE Q3 
EMPLS)¢IF 12 <_Y(#3,0) THEN 1 ELS 03 
TEMPC9OJ*IF IN2 < 10,.£9239) THEN 1 ELSE 03 
TEMPCLOJeIF ‘IMAX < * " THEN 1 ELSE 03 
TEMPCiLJeIF IMIN < (2x8) THEN 1 ELSE 03 


TEMPCL2IJeIF XC1)2 «< YC2.4) THEN 1 ELSE O3 


TEMPCIGJeIF Y¥C3e4) < "O" THEN 1 ELSE 03 


TEMPCASJeIF YC4) « (1073) THEN 1 ELSE O3 


TEMPCI3]¢ IF T2,C42*6) < TwaX.cit3) THEN 1 ELSE OF 
TEMPCizde IF IMAX.64543] < "' THEN 1 ELSE 03 


TEMPC1I8J¢IF TMaX.69%39] < (C9 HIV 2) THEN 1 ELSE OF 


TEMPCIGDIJ¢IF "AA" < "2Z" THEN 1 ELSE O03 


TEMPC2Q]¢IF "MMM" < ¢ 100 MOD 54) THEN 1 ELSE 3 
TEMPCeELJeIF C12 +5) < (47 = 18) THEN 1 ELSE Q3 


oe 


FILL ANSE *#)] WITH OCTis» OCTi» OCTO> 


TEMPCISJe1F XC2) <11,04923} THEN 1 ELSE 03 


COMMENT ANSWERS AND QuTPUTs ea sbss 


10220150 T 0013 
~ £0220;60 7 O645 
10220470 0018 
10220180 T 0022 


10220190 7 0027 


0220200 003 


10220210 T 0035 


10220220 T 0039 
eat Oa 0220230 y 0042 
10220240 T 0056 
10220250 T 0060 
1022026 0064 


10220270 T 0068 
SEER Cre Caan Te eee 
10220290 t 0078 

10220300 tT 0082 
10220310 
190220320 


10220330 7 0096 


10220340 Tt 0104 
10220350 rT 0104 
10220360 tT 0109 


10220370 tT 0113 
10220380 + 0113 


OCTO2OCTO» UCTi+r 

_oCTOsOcTO» UCT» 
OCTO» OcTis» OCTi» 
OCTO» OCTOs OCTO» 

_OGToOs OCTis OCTOr 


OCT1» Octo» Oct 


START OF SEGMENT «#etekete 468 


O220390 F OLTS 


10220400 T 0115 


10220410 tT 0115 


10220020 7 O115 
30220430 7 0115 


10220440 T 0115 


Data Documents/Iinc. 


o on~x @ © & WwW HY = 


= 
i=} 


= 
= 


= 
ind 


= 
a» 


46 4S 21 LONG, NEXT SEG 47 
CVNe2t; oe - 10220450 T 0115 
PNOe223 0460 _ Q . 
VERIFY 10220470 T 0117 
END3 10220480 T 0417 
47 _ +8 27 LONG», NEXT S 10 
PROCEDURE P23s COMMENT THE RELATIGNAL OPERATOR ($)3 10230010 T 0474 
BEGIN 10230020 tT 0174 
BOOLEAN  AsBeC3 0230030 0174 
START OF SEGMENT xktutanawan 4g 
INTEGER HoedoK3 "409230040 T 0000 
Ae TRUES BeFALSES HeiSs ye 155 Ke 303 CeTRUES ee ce 10230050 0000 
AeIF A THEN HSy ELSE Bs TEMPC1) « REAL (A,(47%141)5 10230060 T 0004 
Ae IF A THEN H S$ y EQV HS J ELSE B83 TEMPL2]© REALCALC4791])95 "49230070 7 0009 
ACHSJ3 TEMPC3) © REAL CA,C4781)93 10230080 r 0015 
AcHSJ EQV HSJd TEMPC4] eREALCA,(4721)93 10230090 T 0019 
Ae IF & YHEN He Js k OR HS) ELSE © REALCA,C47#17); O230;00 t Od 
Ae IF B THEN A ELSE Hedsks TEMPCOJ*REALCASL47119)3 10230110 7 0030 
AeHtJSK OR HSUF TEMPC7I¢REALCA.(4781I))3 10230320 Tt 0035 
Ae IF & THEN H¥) AND Hs J ELSE C3 TEMPCST*REALCA, te) as a 0230130 T 0040 
AeHtK<J AND HSKj PLOJ*REALCA, C47 SL: - ea 230140 0046 
Ae IF A THEN NOT RH S$ K ELSE NOT BS TEMPLIO© REALCA.£C47341)3 10230450 7 0051 
Ae NOT HSJS TEMPCLIJOREALCALCA7 E1225 | | 10230160 + 0056 
FILL ANSE®) WITH OCTi» UGT1» OCTI» OCTi» OCTy* OCT4» OOTY? 0230170 r. 0060 
START OF SEGMENT axtetukktan 50 
~OCTO*s OCTOs OcTi» OCTos 10230380 7 0062 — 
pe eae aan a 50 1S 11 LONG» NEXT SEG 49 
CVN©dis 10230200 y 0062 
PNOe23) 10230200 t 0062 
VERIFY (ENDS 10230210 0063 
49 yS 68 LONGs NEXT SEG 10 


Data Documents/Iinc. 


4 * 2) * 


oo ~ @®&® WO FF WH = 


-_- 


PRCCEOURE P24; COMMENT THE RELATIONAL OPERATOR (5)3 


BEGIN 
BOOLEAN A»BeC3 


10240010 Y O474 


10240020 7 0174 


10240030 0174 


START OF SEGMENT «*ktetetwe 51 


INTEGER HodeKi 
At TRUE} BeFALSE 3 He 154 ye 153 Ke 303 Ce TRUE: 


At IF A THEN Hed ELSE os TEMP C1] © REAL ¢(A,064781)); 


"A®TF A THEN Hed €QV Hed ELSE Bd ae rea 
TEMPLZIGREALC ALC AT E193. 


A® H=J3 TEMP (3) © REALCA); 


A ¢Hed EQV Heys TEMPC4J*REAL (Ae 4751395 — 


10240040 TF. 0000 
10240050 0000 
10240060 T 0004 
10240070 fT Q0609 
0240080 004 

10240090 y OG15 
162401300 Tr 0018 


Ae IF A THEN H#as5 OR Hay ELSE B 3. es 10240110 7 0023 


TEMPCS]© REAL CA,Ca7ELI03 

Ae IF 8 THEN A ELSE H+4=4 3 TEMP [6] * REAL (A)s  ©»@ 
Ae ss Hedsk OR He y 3 TEMP [C7]* REALCADS 
ae IF & THEN HJ AND HSK ELSE C3 
TEMPCSJYREALCA.C472139)3 

At H+Jek AND Hey 3 TEMP £9) ¢ REALCASCA7HA))§ 
Ae IF A THEN NOT hak ELSE 83 TEMPLIOJ©REALCA.C4731))5 

A*NOT HaJs TEMPTI1]*REALCA.CaTI1N) 


FILL -ANSE*J WITH OcT1» UcTis OcTi» UcTi» OcTi» Octo» OcTy 


~ 10240430 T OG29 


10240320 7 0027 


0240440 00 
10240450 Tt 0039 
10240160 
102404790 
102401480 T 0050 
10240190 TF O05 


10240200 T 0058 


START OF SEGMENT wxtatutawne 52 


-, OCTO OCT 1» OCT1+ TOA 


92 75 
CVN © 113 
PNOe 243. 
VERIFY | 
END3 
34°78 


PROCEDURE P253 COMMENT RELATIONAL OPERATOR 2 2,D05 915 


BEGIN 


10240210 tT 0060 


11 LONGs NEXT SEG 21. 


10240230 7 0060 
10240240 T 0061 
10240250 + 0064 
10240260 tT 0061 

66 LONG, NEXT SEG 10 
10250010 rT 0174 


10250020 t 0174 


Data Documents/inc. 


INTEGER [O-T 4s INGs[2eINes+ TMAXe MING 10250030 7 0374 & 


START GF SEGMENT wtetennawe 53 


TEMPEAS]© IF x2) 2 It, (4323) THEN 1 ELSE ie 40250280 007] 


@ 
@ 
@ | | 
NTEGER PROCEDURE x(K)3 ee 0250040 0000 
e INTEGER K3 10250050 7 0000 
BEGIN 10250060 7 0000 
e — 
KeK #23 : 02500707: 8000 
@ ENDS 10250080 T 0001 
REAL PROCEQURE Y(L)3. Tas 10250090 T 
e : | ; 
50100 
e BEGIN 10250110 7 0003 
. Yel+3,63 eee 90250420 7 0003 
er 
ENDS : setinstden CNEL ae* 288s tas 2 OBST SO 0005 
@ | JO*O3 [lels [2423 [N2¢"2; 10250440 7 0008 
1MAX¢5497558138073 IMINe™5 497550438073 "40250350 T 0042 
e° TEMPELIJ©IF 0,0 2 1,0 THEN 1 ELSE 03 oe 10250460 T Oot4 
eF TEMPE2]*IF = 1,0 2 10 THEN 1 ELSE O3 10250470 7 0017 
f TEMP [3] 4.314063 2 X(i) THEN gy ELSE OF 10250340 T O02, 
fl TEMPLGIJ©IF °4,314063 2 10,04781) THEN 1 ELSE 0; 7 10250190 1 0026 
e TEMPL5}3* IF =1.75@*30 2." " THEN 1 ELSE O j 10250200 7 0030 
; TEMPE6J¢ IF 1,75@=30 2 10 THEN O ELSE 13 —— 10250210 T 0034 
me TEMPE7JIF I1 2 INL THEN 1 ELSE OF 10250220 T 0038 
e| TEMPC8)¢IF 12 2 Y(=3.0) THEN 1 ELSE O3 10250230 7 0042 
TEMPCOT+ IF IN2 2 [0.09939] THEN 1 ELSE OF ~yous0240 7 0054 
sf TEMPC1O]¢IF IMAX 2" " THEN 1 ELSE 03 _ 10250250 7 0058 
@ : TEMPCALJ¢IF IMIN 2 (2 x 8) THEN 1 ELSE 03 10250260 7+ 0062 
TEMPE L2 +1F XC3) 2 VOhe ae THEN 1 ELSE 03 | 10250370 T 0066 
& TEMPCAGIJ©IF ¥C3e4) 2 "O" THEN 1 ELSE 03 10250290 + 0076 
TEMPCIST*IF YC*1,6) 2 (1075) THEN 4 ELSE 07 —s- 10250300 T 0080 
: TEMPEAG]© IF 12064246) 2 IMAX,C199) THEN S ELSE OF 40250310 7 0093 
e 


TEMPCA7J© IF IMAX.C45i3) 2 """ THEN 1 ELSE 03 10250320 T 0098 


Data Documents/inc. 


BEGIN 10260020 7 0174 3s 


BOOLEAN ArBeC3 10260030 «@ 
START OF SEGMENT awekewatwe 55 4 
HeJeKs 7 oe | 10260040 T 0000 te 


Ae TRUES Be FALSES Ce TRUES He 29/23 Je 29/23 Ke 29713 10260050 
Ae IF A THEN Hod ELSE OS TEMPCITeREALCA, Cari ~ £0260060 T 0006 oe 
nie Pee Re cc ae a ere ; Se 60 
Le ATIF GC THEN H>y EQV Hed ELSE 83 TEMPC2)+REALCA,C47I1) 3 10260070 T 0011 P| 
ig 


AtH> Js TEMPL3J¢REALCA.C4731))3 10260080 7 0017 


@ 
e TEMPCL8]© IF IMAX.0(9239J 2 CODIV 2) THEN 1 ELSE 03 10250330 7 0102 e 
e TEMPCiG]+IF “AA” 2 "ZZ" THEN 1 ELSE OF ——- 10250340 Tf 0407 le 
‘ : 3 ma co BN ss : cd 
EMPL2O0JeIF "MMM" 2 (100 MOD 51) THEN 1 ELSE 03 | n250350 r Otic , 3 
. 4 
e TEMPC21]¢IF (1245) 2 ¢47"30) THEN 1 ELSE 03 10250360 T 0415 3|@ 
6 
e COMMENT ANSWERS AND OUTPUT: en . —  -£0250370 F 0119 ‘le 
3 | ines : 
FILL ANSE*#] WITH OCTOs OCTO» OCTle ee eee, 10250380 0119 3 
10] 
td START OF SEGMENT ##etetetese = 54 |@ 
1 
@ |: Sete oe Her Ge BGT Or 86 HR Oe ee < 10250390 y O421 | 12 
OCTi» OCTis OCTOs _- ee ie ne a = 10280400 rt 012 5 
16) 
e OCTi» OcTos OcTi>» . 10250410 T 0423 7 @ 
18) 
OCTi» OCT1+ OCT1, . 10280420 7 0121 ‘9 
@ L 2 / ; ; os : bd @ 
OCTi» OcTor UcTi» 0250430 7 0 : 21 
i 
@» OCTOs OCTi» OCTL3 10250440 T 0421 ny @ 
24 
ss «SA yS~— BY LONG, NEXT SEG 53 2 
@ :: , | : po @ 
I N eases, 9250450 _O4s l2 
: 
@: PNOe253 10250460 Tt O422 2 @ 
° VERIFY¥3 o . : . 10250470 7 0123 
| ENDS 7 : | | 10250480 7 0423 
@ 53 7S 130 LONG, NEXT SEG 10 3 @ 
J 
‘ PROCEOURE P26} COMMENT THE RELATIONAL OPERATOR (>)3 = 10260010 T 0474 le 
@ 
@ ee 
eS 
@ 
@ 
on TREALCASC@TUTIIF 10260090 F OO2G | 
eh (OR Hv EQSE Cs TEMPLSIOREAL ASCOT ILI 10280100 1 002s ; 
 ) At IF B THEN C ELSE H*u>Ks TEMPLOIEREALCASC47#4))3 10260310 7 0031 


oOo ~ Oo TO F&F WH 


Ry ~ Ry = = 
we LX} at Oo © 2 yw On NT & 


Th 


<n Se SS. 
Oo a oO 


Data Documents/inc. 


* aa 
= 


wy 


(3 


ACH+J>K OR H>K & TEMPL7I*REALCA®L47$1))3 10260120 t 0037 
AclF C THEN H>J ANO H>J ELSE B + TEMPCO]+REALCA,.C47I1))5. = 40260430 7 OOd2 

AtH+K>y AND H>K3 MP{GO JER Ai A. CY Ge Bi _ 8260140 0048 

Ae IF C THEN NOT HoK ELSE NOT 8B TEMPLIOIJ*REALCA,C47E=11)3 10260150 T 0053 

Ae NOT H>di TEMPCLIT@REALCA.C47H17)3 10260160 tT 0056 

FILL ANS(*] WITH OCTOs OCTys OCTOs OCTisOCcTOsUcTos» UcToe 0260 70 006 


START OF SEGMENT wxutarnwne 56 
 QCTOs CCTOs OcTis OcTis | 10260490 T 0063 
36 78 41 LONG, NEXT SEG 55 


CVNe 114 : 10260200 7 0063 

PNO*265 9 QB60D10 T 0064 

ate hk EE ce eS cet SU Ai ce eG te = 0065 
END; | 10260230 T 0065 


95 75 69 LONG, NEXT SEG 10 


PROCEQURE Pa7s COMMENT THE RELATIONAL OPERATOR (#)3 Pr ot 1o270010 O17 
BEGIN 10270020 Y O174 
BOOLEAN A» Bp C3 . 1027009030 7 O474 


__ START GF SEGMENT xtaxtuantes 57 


INTEGER He Je K 3 10270040 YT 0000 
At TRUE} B+ FALSES He 2073 Je 203 Ke 403 Ce TRUE; es 10270050 7 6¢00 
A ¢ IF A THEN HAJ ELSE C3 TEMPE Je REAL €A.64731)23 10270060 T 0004 
Ae TRUES 10270070 7 0c09 
Ae IF A THEN Hed EQV H4y ELSE BF TEMPL2)¢ REALCA.CA7I12)3 = 10270080 T 0010 
Ae H # v3 TEMPL3J« REAL (ADS a aie te 10270090 T 0016 
AGHA EQV H¥Js TEMPL4J]© REAL (A,64781))3 10270300 7 0019 
A® IF A THEN Hed#Kx2 OR HAJ ELSE C3 | 10270410 7 0023 
TEMPLES] ra REAL CASCATTLIIE ; 10270320 7 0028 
Ac IF B THEN A ELSE H + J # K 3 TEMPLO] © REAL CAel47%1))3 10270130 T 0030 
Ae H+Je6 OR HeCS5t1) 2 VeCMST TS TEMPE )¢ REALCA,C47I1})3 ~~ ——CSN APO GO y 0036 
Ae TRUER eis | | : as | 40270450 7004 


A ¢ IF A TREN HAJ AND H4J ELSE C3 TEMPEL8IJ© REAL (A.C4781))3 102701460 TF 0043 


Data Documents/Inc. 


a] 2 ey 5 G a 3 aS: % TS 3 


oonw mo On FF wr = 


5 
. 


START @F SEGMEN 


ALPHA AAsABe AC, ADS 


BOOLEAN ToF3 
BOOLEAN PROCEDURE xCK)3 
BOOLEAN K3 


BEGIN 


X # K AND TRUEJ 
END} ge oekn 
10 © Of IMAXe 10233 Ave"™ANS ABe"™B™;S ACeNC™, ADe "DM; 


10280040 
10280050 
10280060 
10280070 


10280080 


10280090. 


10280560. 


10280110 


ANKRRKER EK 


T 


T 


T 


Ae H + K F J aND H # KS TEMP C9] REAL (CA.C473814))5 10270170 tr Oo49 
At IF aA THEN NOT HeK ELSE C $3 TEMPCIOJ*REALCA.C47#1])3 © 10270180 y 0054 
At NOT Heds TEMPLigJe REALCAC4781))3 Bett Sasa: 0270390 ‘ass 
At IF a THEN H.C4781) 4 H x (U42) ELSE FALSE; 10270200 t 0062 
TEMPCi2]* REALCA,L47i1d)3 eee 7 10270210 1 0066 
Ae NOT TEMPC10) # TEMPL11]3 TEMPLi3]¢ REAL( AS (473193 ee 10270226 T 0069. 
Ae C(CTEMPC1G] x TEMPC11] MOD TEMPC11]) # CH #(JxH, 64523) )/2)3 10270230 tT 0074 
TEMPCigle REAL CA, (4?t1d)2 ee eee 10270240 7 0080 
Ae "ABCD" 2 "MMS TEMPLISI©REALCASL47$1993 ein 10270250 0082 
A ¢ “ABCDEF" # "UJKLMNP"S TEMPL16] « REAL CA.C4731))3 10270260 T 0086 
FILL ANSE*)] WITH OCTOs OCTi» GCTO» GCTi» OcTi» OCTOs OCTO»  °&£«L0270270 7 0089 
ea | ae START OF SEGMENT s4eeeeeewe 
QcTO* UcT1 gcTO» OCT1» OcTir OCTOs acti» acti» act4s 10270280 T 0091 
BE PS) 26 LONG, NEXT SEG 
Ba ese MES rece i a ce at aes ee OES OU 009 
PNO* 27 3 10270316 1 0092 
VERIFY Se 10270320 7 0093 
ENDS ee ee ee 10270330 } 0093 
57 +S 100 LONG, NEXT SEG 
PROCEDURE Paes CUMMENT LO L OPERATOR NO dg eget 10280010 T O47a 
BEGIN 10280020 T 0174 
INTEGER 10% IMAX} 10280030 T 0174 


0000 
0000 
0000 
0000 
0000 
0000 


9004. 


0003 


57 


10 


59 


TeTRUES FeFALSES 10280120 tT 0008 ] 
TEMPCLJ*REAL TRUE)? 


102801430 


CBOGLEAN €102))3 


oo ~~ Pm FF WH = 


TEMPL4J@REAL 10280460 7 


= 
i=} 


XCTRUED) 3 10280170 7 0018 
XCFALSE)) § 10280180 


TEMP[5]*REAL 
TEMPLOJ@REAL (NOT 


TEMPE7]¢REAL (NOT AA AB) BO So 10280190 7 


TEMPCOJ*REAL (NOT AAS AA) 3 10280200 7 0025 


8 
7 

8 TEMPL9OJ*REAL CNOT AC AD) 3 10280210 
af , i. one ; 

0 TEMPCLOJeREAL CNOT AD 2 AC) F 10280220 T 0029 
2 


TEMPCL1J*REALCNOT aD > AC) 3 10280230 Tt 0032 
2 TEMPCI2JeREAL (NOT AND 4AD)3 10280240 T 0034 
TEMPCL3}*REAL (NOT CIF AA « IMAX THEN TRUE ELSE FALSE) 10280250 T 0036 


TEMPC14de¢ REAL (NOT T AND F)3 | | 10280260 1 0040 


Data Documents/Iinc. 


6 B G * zy 5 . : n Pn 5 mS 53 By = 
oe > & op o & Q o os: 


TEMPLISJe*REAL CNOT T OR FD} 0280270 004 


COMMENT ##46 TEMPCLGJ@REAL (NOT T INP F) #***CHANGE OCT To TRUES 10280280 T 0045 


TEMPLi7]¢ REAL (NOT T EOV FD} 10260290 7 0045 


TEMPEi6] + REAL ¢ NOT T 


£47 tyd)i : 10280300 0048 


TEMPEI9J¢ REAL (NOT T obasst))s 10280310 t 0050 


FOR [0ei STEP 1 UNTIL 19 00 TEMPLIOJ+TEMP[[0].(47!1J3 10280320 T 0053 


COMMENT ANSWERS AND OUTPUTS 10280330 t 0059 


“FILL ANS C4] WITH OCTOs OCTI> OCTOr 10280340 7 0059 


etek kk 60 


START OF SEGMENT 


OCT1s» OCTO» OCT1> Se eee ae a 0280350 1r 006 


10280360 7 0061 


OCTO» OCTO» OCTir 10280370 


“OGTOr ACTA» OCTOr ~ 


10280390.7 


oe ne | | | 10280400 1 


Data Documents/Iinc. 


0 23 0 * 
x] 
cer) 


60 +S 19 LONG, WEXT SEG 59 ® 


CVN©193 PNO*283 VERIFY 10280410 Tt 0061 1 
ENDS : . 92804620 006 3 


59 1S 67 LONG, NEXT SEG 10 |@ 


PROCEDURE P293 COMMENT THE LOGICAL OPERATOR AND 3 10290010 r 0174 ? 
BEGIN : do290020 Tt 0474 9 


ow ON DM ee wD = 
a 


¥ 

: BOOLEAN A» B3 10290030 r 0474 1@ 

ao START OF SEGMENT wtewetueee 64 

INTE. ER We 3 : a3 _ ; 9290040 Qacad 

BOOLEAN PRUCEDLRE BAND(BANUB)3 10290050 7 0000 @ 
BOOLEAN BANDB: re: "10290060 7 0000 19 


BEGIN 10290070 TF 0000 21 


bs HAND*® BANDS OR TRUES 10290080 r 0000 bt @ 


END? : 10290090 TF OO04 25 


INTEGER PROCEDURE TWOBANDCTWOB)3 10290400 TF 0003 2 
INTEGER TWOBs 10290310 7 90003 


B= SsBeESs rE 


BEGIN 10290420 


TWOBAND¢ TWOB+53- 


3 


eee eres 0290130 ° 
ENDS 10290140 7 0005 1@ 
TRUEs Be FALSES He 143 Ye 73 10290350 rr OcQ?7 27] 


At TRUE AND FALSEs TEMPE LJe REAL CAL4731))3 10290360 Tt O0O11 39 


> 
* 


TRUE ANU NOT TRUES TEMPC2J]© REALC AS47231 3)5 10290,70 «|@ 


Ae TRUE AND TRUE AND TRUES TEMPOS) © REAL CA C4784 10290480 fr 0018 4 
Ae B AND Bs TEMPL4]© REALCAsL47#19)3 10290190 Tt 0022 45 


Ae B ANB NCT BS TEMPCS]© REALCAC4781))3 10290200 T 0025 Je 
Ae A AND BAND BS TEMPCO)¢ REAL CA, C4711] . 10290210 7+ 0029 4s 
At BANO(CTRUE) AND BANDCFALSE)3 TEMPL7)* REALCALL47#1})3 | 10290220 Tt 0033. 51 


A* BANDCA) AND NOT BANC (8)3 TEMPCB]* REALCA,C4731193 10290230 t 0038 | “1 @ 
Ae BAND(TRUE) AND BANDCAD AND NOT AS TEMPLOJ+ REAL(A,(a7tiJ)3 10290235 T 0042 ; 
At H#u>TWOBANDCL1) AND H>Us TEMPLIO)* REALCA,L47E1))3 10290240 + 0048 


= 
= 
a 


Ae HedsJ AND NOT JoH3 TEMPELL]¢ REALCA.L4731))3 10290250 tT 0053 e@ @ 


td @ 
e@ At H+J>H AND H>TWORAND (5) AND TWOBAND(O)< TWUBAND(1)3 10290260 7 0058 ® 
TEMPLi2je REAL CA.C47#1I)3 ee be 10290270 T 0063 
e At (TRUE AND TRUE OR TRUE) AND (8 AND ADs = 10290280 0066 
e|: TEMPC19J]© REAL CAeL4721I)3 10290290 7 0068 
Ae (HUF AND NOT H>U) AND (BAND(A) OR NOT TWOBAND (3)>H)3 10290300 T 0073 
: : TEMPCLG)© REALCA,Ca7t1I25 10290310 T 0076 
@ |" At (TRUE AND FALSE) AND CH+y>H) AND CBANDCA) AND NOT K< 1092990320 + 0078 
TWOBAND(O))F TEMP [i5i* REALCA, (4731303 a 10290330 7 0081 
: Ae Hel45%3)>H, C452) ANO vf4543) 4 vl 454Q) ee 0290340 0086 
& ; TEMPC16]¢ REALCA,L4721))3 10290350 T 0090 
bi AtHe(45%3]> TWOBANGC(5) AND NOT JeC4581)>0 3 "40290360 T 0092 
° i TEMPLA7ZJ* REALCA,£4781193 a 10290370 T 0096 — 
e é AtHel45#1) # 0 AND JoL4583)>0 AND B3 TEMPL181]¢ REAL CAL 4731193 10290380 T 0098 
é FILL ANSC*) WITH OcTO» UcTo» OcTi» OcTOs Octo» Octo» OcTyr ; 10290400 T 0404 
° : START OF SEGMENT wtatetener 62 
20 : OcTo» UCTi» OcTi»s OCTOs OcTis Octo» 10290410 7 0106 
OCTOs OCTO» OCTis OCTO, OCTOs 10290420 7 0106 
- OR S18 LONG, NEXT SEG 63 
@ CVN© 18 3 10290440 T 0406 
. PNO* 29 i OO 10290450 7 0407 
VERIFY 10290460 Tt 0407 
@ ) ENDS 10290470 T 0407 
el: . 61 75 121 LONG, NEXT SEG 10 
PROCEQURE P30; COMMENT THE LOGICAL OPERATOR OR} ae = ee 0300030 fr 047% 
@ : BEGIN 10300020 fT 0174 
e i BOOLEAN = A® BS a 10300030 rT 0174 
| a } START OF SEGMENT atetaketow 63 
@ | INTEGER He JB 10300040 T 0000 
me BOOLEAN PROCEDURE OUNEOR (PARAI) ee F0300050 7 O00” 
a BOOLEAN _PARA4S ee 10300060 10000 
@ BEGIN 10300070 T 000 


Data Documents/inc. 


on : o& & 9g 


oo tN hm FH FF WH = 


= 


= 
= 


= 
N 


= 
ry 


5 > 
[Xd oO © won wn Om om 


eB RS Sesser s 


CRESTS 


ONEORe TRUE AND PARAYSENDS 


INTEGER PROCEDURE TWOOR (PARA2)} 
INTEGER _PARAQ | 


BEGIN 


TWOOR* PARAG+2 # END? 
AtTRUE # G+ FALSE 3 He 14 3 Je 73 


Ae TRUE OR FALSES TEMPC1J) + REAL (A)3 
AeTRUE OR NOT TRUES TEMPC2)*REALCASCA7313993 
Ae TRUE AND TRUE OR TRUES TEMPE 3]« REAL CA) 3 


Ae B OR B 3 TEMPL4]©* REAL (A0(47!1))3 


Ae A OR NOT Bs TEMP C5Je© REAL CA,647819)3 


Ae A AND B OR B 3 TEMP C6J¢ REAL (A,(4721))3 A YES 
oA ONE OR (CAD CR ONEFOR (B05 TEMPC7J] © REAL CA, C473h))5 


A * GNEOR (A) OR NOT ONEOR (A)s TEMPL8IJ*REALCA.C4?349)3 

At ONEGR (8) AND ONEOR (A) OR QGNEQR(B)3 

TEMPC9I}© REAL CA,C4721))3 

At HeveTWOORC3) OR Heus TEMPLLOJ® REAL (ADs 

+H >I € alari ; 

At H+J>H AND H>J OR U<h 5 TEMP (12) © REAL (A)3 

At (TRUE ANO TRUE OR TRUE) OR (B OR B)3 

TEMPLIg)© REAL CAyl4?ill)3 

Ae CHeJ # J OR NOT H>y) OR (ONEOR (A) OR NOT H > 

THOOR(2))3 TEMPLLGI© REAL (AeCA7919)3 
SA CFRUE OR FALSE ) AND (KH # j > H) OR CH > Js 

MPLisle REAL CA $1] 

At Hy (4513) | > Hel45%2) OR jet45132. eo Jel45813 

TEMPC16]¢ REAL (CAelG721I93 

Ae H, (€4533]> TWOORC1) GR NOT Ata Saraoe ed 

TEMPCI7J¢ REAL CA, ca7nayds 


a CC TISSLUMT UT : IPO OR BT 


10300080 
10300090 
10300100 
10300410 
10300420 

0300130 
10300140 
10300150 
10300469 
10300470 
10300480 


0300190 


T 0000 
yt 0003 

000 
T 0003 
Ty 0003 

Q007 
T OO411 
tT 0014 
T9017 
rT O021 
T 0024 

C028 


terete OSU R00 OF OG ss. 


10300210 YT 0037 


10300220 
10300230 
10300240 
0300250 


10300260 


10300270. 


10300280 
10300290 


10300300 
10300310 


0300 
10300330 
10300340 
10300350 
10300360 

OIOVITO 


T 0042 
0045 
1 0048 
T 0053 
1 0058 
Tt 0063 
T 0066 
T 0068 
T O07) 
T 0076 
0 
T 0082 
rT 0086 
t 0088 
T 0092. 
0 


Data Documents/inc. 


@ @ 
rd) TEMPCi8J© REALCA,L4721))3 | 10300380 r 0098 @ 
FILL ANSC#) WITH OcTi» UcTy» OcTis OcTOsOcTi» OCTO» OcTl» OCTi» 10300390 7 0100 
: BM ee as R a MEN eew eee 6 A 
eo} OCTOs OCTOs OCTOs» OCT» OCT1is UCTi» OCTi» UCT» 10300400 7 0402 
‘ OcTis Octis —_——- 10300410 + 0402 
i ALON NEXT S 6 
 ] i CVN© 18 3 10300420 T 0402 
5 PNO « 30 3 | | _ 10300430 7 0103 
ae VERIFY | : 0300440 7 040 
) ENDs 10300450 7 0403 
i (IEE ey eT geen eh oe SP LONGs NET SEG 40 
- PROCEDURE P313 COMMENT LOGICAL OPERATOR IMP 345 e5,2k = 10320010 T 0174 
) i BEGIN 10310020 7 0474 
Ps - INTEGER [Os L,IN1 +12, 1N2oIMAXsIMING — 10310030 T 0174 
: P At J { N yee wate we 
@ |: 
is REAL Re®Re RRR 0310040 00.00 
& ALPHA AAsAx3 10310050 T 90000 
BOOLEAN BO» Bis 193910060 T 0000 
e 6 REAL PROCEDURE X¢K)§ 10310070 Tt O000 
e REAL KB | 10310080 T 0000 
BEGIN O310090 T 0000 
a XeK4+(23/10)3 = , 10310300 7 0000 
@ | ENDS - 7 | 3 10310410 Tt 0003 
INTEGER PROCEDURE YeLys Se aes 10310120 Tt 0004 
. : INTEGER L = = | | 10310430 0004 
git SBRQ TI OP Rog ae ee 10310140 7 0004 
«tl , Ye cess “40310150 + 0004 
ef. “ae. ENDS } | | BO 19310160 T 0006 
ey _ BOOL AN PROCEDURE nf 425. a | ceed | 017.0 0008 
e BOOLEAN M3 10310180 + 0008 


Data Documents/inc. 


ne: ~ 
> 4 3 3 s 8 8 ; SEES ERE SR 


Cee er ee 


BEGIN 
Tem AND TRUED 

ENDS 
10¢O$ [lels INLe=45 T2*e25 [NZeR23 
IMAX¢1023% IMING@10233 
RELI/103 RRZ2/105. RAR|33/103 
AAG™A™; ABE"BN"; 
BO+FALS&ES Bl+TRUES 
TEMPCLJ*REALCTRUE IMP FALSE)3 
TEMPC tJ TEMPE 1),047#193 
TEMPC2]*REAL CFALSE IMP TRUE; 
TEMPE 2]e TEMPE 2),C47%1]3 
TEMPE3¢ REAL CFAL3E IMP FALSE); 


TEMPC 3]e TEMPE 37,04781]3 


cane _TEMPC4)©¢ REAL CTRUE IMP TRUED3 A at alae tad ed a Oe 


TEMPCOgJ© TEMPE 4).€4731)3 
TEMPLSJe REAL CTRUE IMP B1)3 
TEMPCOSJe TEMP(O5),(472193 


EMPCOJ*REAL CFALSE IMP ZC TRUE) D5 
TEMPCO6J¢ TEMPE 6),064721)3 


TEMPC7J©REAL CFALSE IMP INZ < [N2)3 
TEMPLO7 Je TEMPE 7). paral 


TEMPL8I« REAL (TRUE IMP CIF le<3 THEN TRUE ELSE FALSE) D3 


TEMPE @le TEMPE BT. TO7TH 
TEMPL9]¢ REAL (FALSE INP BOOLEAN (I0sC47#11)93 
TEMPE 926 TEMPE 92, ca7eays 
TEMPELOI+REAL CB IMP SUOLEANCIIIDD 


TEMPL1iOJ+¢ TEMPL 101. C47 i115 


10310190 
10310200 


10310210 
10310229 
103140230 
10310240 
10310250 
10310260 
10310270 


10310275 
10310280 


10310290 


40340295 7 


410340300 
10310305 
10340310 
10310315 


10310320 


10310325. 


10310330 
10310335 
10310340 
103193 

10310350 


10310355 


10310360 
10310365 


TEMP LLJ¢ REAL: (80° IMP. 2CFALSED 3 


TENPTIiie TEWPTII. aT; 133 


40340370 


10310375 


4 


T 
7 


T 


T 


| 


4 


0008 
0008 
0010 
Ool2 


0017 


0019 


0922 
0024 
0025 
0028 
0034 


____ 10310285 T 0034 


0037 


0040 


0043 
0045 


0048 


@ q 
@ TEMPLL2]¢ REAL (BO IMP R 2 4B); 10310380 t 0092 @ 
TEMPCL2]¢ TEMPC12),(4731]3 SG 16310385 T 0095 
al TEMPE13]¢ REAL (81 IMP BO EQV B1)3 | ee 10340390 7 0098 
e| TEMPCI4J¢ REAL(B1 TMP BOOLEAN CIMAX,064721]))3 10310400 tT 0402 
TEMPC14]© TEMPC14),C47i1]3 7 10310405 7 0405 
e TEMPCISJ¢ REAL CZCTRUE) IMP BOOLEAN (Y("4)))3 10301041 7 0408 
e|: TEMPC1SJ© TEMP(15),C47%1)3 10310415 T 0415 
: TEMPCLOJ*REAL C2CFALSE) IMP CRR < X(1))23 . 10310420 7, 0418 
° EMPC16)© TEMP(16),04711)3 | 0310425 7 012 
eo} TEMPCA7JeREAL (Z¢FALSE) IMP BO OR BOOLEAN (10))3 10310430 yt 0425 
i TEMPCA7J© TEMPC17),(47!1]3 SS ae 10310435 T 0428 
i TEMPLiB)+ REAL (Z2CTRUE) IMP BOOLEAN CIMAXef47819))s = _sgg t gatg 013: 
@ i TEMPC18]¢ TEMP(18I),C4721)3 10310445 rt 0735 
fp TEMPEI9]© REAL CC BO IMP BOOLEANCIO)) IMP CNOT B1 IMP BO))s | 10310050 7 0438 
TEMPC2Q]* KEAL C12 < 11 IMP NOT B1)3 : 10310460 0143 
3 TEMP(C20]¢ TEMP(20],c4731)3 10319465 y 0446 
TEMPCeL Je REAL CCRRRSRRY IMP BOOLEAN CIMAX,[39%1)0)3 «$03 f047O F Oyag 
TEMPC213¢ TEMPE213,0478333 103810475 7 0452 
TEMPC22)¢ REAL (BO AND BOOLEAN CIO) IMP NOT @1 OR wO)3 10310480 T 0155 
TEMPL22) TEMPE 221,ba7 tas ——— a 10310485 7 0459 
TEMPL23)¢ REAL (81 IMP BOOLEAN CIMINeC4421}) IMP NOT BO)3 eee 10310490 7 0162 
TEMP(23]¢ TEMP(23),04781)3 10310495 T 0166 
TEMPE 24 )¢ REAL (BOOLEAN (TO, case11) IMP BO.C4081)); 10310500 t 0169 
sa TEMPC2G]¢ TEMPL24), 0471193 | , 0310505 7 0473 
e COMMENT ANSWERS AnD OUTPUTS 10310510 T 0176 
) FILL ANSC*#] WITH OCTOs OCTix OCTi, = "40310520 7 O476 
Boe bon i iJ START OF SEGMENT seetatetne 66 
OCTi» OCT1» OCTis 10310530 Tt O478 
OCTi» OCTi» OUCTi» | a 10310540 7 017A 
OcTi» OcTar OcTir 7 . a, 10310550 7. 0478 


OCTOs OCTi» OcT1,» 10310560 7r 0178 


Data Documents/inc. 


i 5, a * a * . x os KS aS 5 Tk * 


oo ~~ Dm HW FF WD HY = 


OCT1» OCT1» OCT1» 
OCTy» OCTi» OCTIs 


OCTis OCTis OCTIs 


66 +S 
CVN#253 ee Se en ae a ee 
PNO¢31s Be ee 
VERIFY 
PNOb ee ee ee ee hoes 
65 +S 


PROCEQURE P32sCOMMENT 3,5,.5.2 EQV3 


BEGIN” 
BOOLEAN Ae Be Ce Ds 


ACTRUES BeFALSES CeTRUES DeFALSES 
MP ¢ "QV N SE 


TEMPC2) ¢ IF A EQv D THEN 1 ELSE O03 

TEMPE 3) « IF 8 EQy C THEN 4 ELSE 03 7, 
TEMP{4) ¢ IF. B EQV 9 THEN 1 ELSE 03 

TEMPLES) ¢ IF B EQvCA EGv(8 EQy C)) THEN 1 ELSE 053 


EMPCOjJ* Tr ¢B UR ¢€) EQV A EN VTE 03 


FILL ANSE*] WITH OCT1» UCTOs OCTO» OCTl» OcTl» OCTis 


10310570 f 


10310580 Tr 


0310590 


24 LONG, 


10310600 T 


0310619 
19310620 T 
10310630 1 
86 LON 
10320010 T 


10320020 T 


~ 10320040 T 


8 093.0 
10320060 T 
10320070 T 
10320080 
10320090 T 

0320100 TF 


10320110 


0178 
O17a... 
0178 


NEXT SEG 


0478 
O179 
0179 


0479 


NEXT 5S 


O4174 


0474 


tes 10320030 0174 
START OF SEGMENT waetaekwten 


oc0o 
090 
0006 
0010 
Qo14 
0018 
U0 


0027 


START OF SEGMENT wthtakatan 


CVN #63 PNU © 323 VERIFY 


68 +8 


6 LONG, NEXT SEG 


002s 


0030 


33 LONG, NEXT SEG 


a 10320120 Tf 
EXD3 10320430 T 
7 ~ 67 78 
PROCEDURE F333 COMMENT SIMPLE DESIGNATION EXPRESSION 3,603.1 "40330010 7 
NOV 13, 1962. KM,3 19330020 7 
BEGIN | 3 x eee 10330030 T 
; LABEL Alege A 3eAGsASrAGRATSAL1¢A220N332A340NG4 AGS A4Gs 40330040 7 


0474 
0174 
Vila 
0474 


START OF SEGMENT whakakatee 


65 


10 


67 


68 


67 


69 


Data Documents/Inc. 


1 
2 
3 
4 
5 
6 
vi 
8 
9 


(IS 3 


SWITCH DESIGSTATe Alls (A22)» EXTRA [AsB]*e JF D THEN A33 


Dat 


Ca7eCebs D 925D3904,D59D63 


LABEL H12829B39H49899B469B/79BB3 
REAL AsB3 
NTEGER kets 


BOOLEAN vr Es 
SWITCH SIMDESIGALsA2s ASS AUS AS s AGS ATI 
SWITCH EXTRA «+ 8428208 3984,859860B77B83.. 


SWITCH DES]GSTAT FORWARD$ 


10830045 T 0000 
10330046 + 0000 
0330047 0000 
10330048 T 0000 
10330050 7 0000 
5330060 9006 
10330070 T Oo0U0 
10330080 + 0000 
03 0085 09006 


10330086 r 0014 


INTEGER PROCEDURE ASSCAS5A)3 INTEGER ASSA3 FORWARD; 


ELSE A34s IF D THEN EXTRA C24(3 mad ¢)] 
ELSE DESIGSTAT C7)» IF 0 THEN A4S4 ELSE IF 
— THEN AWS ELSE A46s C26s 
EXTRA [(A55(3)4H, C4781] + ENTIER (A))13 
INTEGER PROCEDURE A55(A55A)3 
INTEGER _ASSA 3 
BEGIN 
Ad5¢ A55A + U3 
END3 
Ae 3/23 Be 7/43 De TRUE § E*TRUES HO77 Ce 13 
60 TO ATF TEMPLCJ© OF C# Cals GO TO O15” 
TEMPEC] © 2) Ce #13 ce 


GO TO (A2)3 TEMPCCI]*© OF Ce C+i3 GO TO D2; 


“TEMPEC] © 33Ce Cais 


go To. SIMDESIGL4+7=8)3 Tempted. 05 ce co G0 TO 033 


TEMP([C) © 43Ce C413 


GO TO SIMDESIGE B +B* Be a a TEMELOI¢ os Ce C#33 GO TO Das 


TEMP(CI)© 53 Ce. Cen 
GO To SEIMDESTG C H.C4583))5 TEMPCCI]© OF Ce C413 GU To D5; 


“40330087 » Gola 


0330090 Q014 
10330100 Tt Q025 


{0330,10 7 0031 
0330420 7 0037 
10330130 T 0044 
10330140 7 0056 
103301445 T 0058 
10330150 7 0058 
10330160 7 0058 
10330470 7 0059 
10330180 T 0061 
19330190 F 0067 
10330200 7 007 

10330210 t 0075 


10330220 7 0080 


_ 10330230 7 0084 _ 


10330240 7 0090 
70330290 T (Bow 
902. 60 06 


10330270 T 0404 


Data Documents/inc. 


. 5 7 S. isk . > 
5 & on © & G > fr 


oOo wt @® TO &® ww = 


A5% TEMPLC) + 65 Ce CH 


D5? GO TO SIMDESIG [ A55(5)]3 


Ags MP © Ti Ce C+ Fossett ee cs at - 


06? GO TO SIMDESTG CCH.LC45%3) x ade B + A550 "3))3 


CeCHls 


7 
, 


TEMPECJ¢0O3 


A7t GO TO ¢ IF 0 THEN Ci ELSE c2)s TEMPECI]¢O3 cec+izG0 TO C3; _ 


Cit TEMPCC1¢B8s C#C+13 GO 


“Cat. TEMPEC]+86sCeCels 


63! GO TO ¢ IF D THEN ¢ 


TO C35 


C4) eLSe ¢ 


Cas TEMPCC)*9s CeC+13 GO TO C6; 


C5t TEMPCC)e99F COC +13 


}) TEMP( C140 


cé: GO TO CIF 0 THEN CIF E THEN C? ELSE C8) ELSE C9); TEMPCCI*0; 


ce C+#13 GO TO C103 
C7! TEMPLE} «410s CeC+y3 


Cat. TEMPECIJe 100 


GO TO Cyo 3 


CS TEMPCCJ*©1114 CeC+1;5 


C10! EeF ALSE; 


©*C+13 GO TO C10; 


QO TO (IF O THEN cIF E THEN Cy2 ELSE C14 


CIF £ THEN C13 ELSE CIF E THEN C14 ELSE C15 9))3 


TEMPCCJ]*Os CeCels G 


C11? TEMP CCjepis CoC+a3 


C12t TEMPCCI]#1123 CeC+13 GO TO C163 


C13% TEMPCCJ*¢1134Cecri; 
ia? TEMPECIe1143 CeCe 


Ci5% TEMPCCJ e115) CeCo+13 


O TU C163 


GO TO C\6s 


GO $0 C163 


GQ C163 


Ci6? GO TO CIF D THEN DESIGSTAT(B + B #A 7A) ELSE C17 5 TEMPELC)*O3 


Ce C+is GO TO C18 3 


AJit TEMPECI#12;CeC+13 GO TO C183 


C17% TEMPECI*1215 CeC413 


C163 60 TO. CIF 0 THEN MIE 0. THEN DESIGSTAT CH, 


aSt2) ELSE 


C19). ELS 62075 TENPECI+Os Cecels GOTO care 


A22% TEMP(C]©133 Cecris 


GO TU Cals 


10330280 
10330290 

0330300 
19330310 
10330330 
10330300 


10330350 


10330370 
10330380 


10330390 
10330400 


10330410 
10330430 
10330440 


10339450 


10330470 


10330480 . 


10330490 
10330500 


10330510 


40330520 


10330530 
10330540 
10330550 


10330560 


40 s0ar0 7 


40330880 7 


10330590 T 


10330360 


10330460 


10330420 T 0473 


Data Documents/inc. 


START OF SEGMENT sadadwkan 70 


~OCTIOs OCTiLeOCTi2> OCT13» OCTIas | 10330610 7 0333 
) OCTI5s OCTI6s OCTI7» OCT20» ocr2ys 0330820 7 0333 
70 7S «86 LONGs NEXT SEG 69 


CWNGLOS 10330830 7 0333 


- 10330840 7 0334 
VERIFY 10330850 T 0335 


 -pNOe333 


10330860 7 0335. ee 
69 18 ©342 LONG, NEXT SEG 40 
PROCEDURE P345 COMMENT GENERAL DESIGNATION EXPRESSION 3.6,3,2 _ 10340010 fT 0174 


NDA 


@ 

& C19! TEMPLC]€1315 CeC+13 GO TO c213 10330400 tT 0252 @ 

mm C20% TEMPLC) #1323 Cecels | —— 10330610 7 0256 
| Cait GO TO (IF D THEN CIF £ THEN C22 ELSE DESIGSTAT (A55(2))) ELS 0330620 0260 

e CIF & THEN C23 ELSE CIF E THEN C24 ELSE €25))); 10330630 7 0765 

e ; TEMPCCJ¢Os CeC#13 GO TO C263 20330640 7 Q272 
i B3t TEMPLC}*#143 Cec+is GO TO C263 10330650 7 0276 

oe; C22! TEMPLC]#1413 CeC+is GO TO c263 10330660 T O27y 

6 TEMPCC ©1423 CeCe s GO. TO c263 10330679 
TEMP(CJ]© 1433 CeCe1s GO TO C263 10330680 

e : C25! TEMPLC] © 1443 CecC+13 10330690 tT 0294 

é. C26% GO TO DESIGSTATCH.(4226]x(a+B) © AS5C37 ))3 ere 10330700 tT 0295 
TEMP(C]*0% CeCe13 GO TO C273 i 10330710 0299 

Or A33% TEMP{C}#153 CeC#1s GO TU C273 10330720 7 0303 

e: | A343 TEMP(C}*1513 CeCet3 0000000 _— 10330730 7 0306 
é C27! gO TO EXTRA (53s TEMPEC]«03 cec+i1s GO TO C283 2 40330740 T 0310 

BS! TEMP[C]*165 Cec+is GO TO C283 | 10330750 fr 0315 

r Abb TEMPCCIeléls Cec+t3 —— 10330760 7, 0319 
3 C28! GO TO DESIGSTATC8Is TEMPLC}©O$ Ce C#13 GO TO AAT eee 10330770 + 0323 

e Bes TEMPLCJ]* 173 GO TO Ad?73 10330780 7 0323 

Pe A47% Bit Bet Bat Bat BT! Agatagst AGE: 10330790 T 0334 
; FILL ANS £*#] WITK UCT2s QCT3» OCT4s OcTS* ocTé*s ocT7» 10330800 + 0332 

@ 

r ‘ 

& 

eo: 

& 5 

@ 


Data Documents/inc. 


a 55 Tk 3 
a © & om . 


o ont mn nm ee WH = 


NOV 15 1962. KMys 


BEGIN 
ABEL Ls X20 x30 K4e x50 xOe Xa47s Yi» Y2s Y3x Yor YS? YOu 


(10340020 T 0174 
10340030 T 0474 
0340040 O174 


START OF SEGMENT aeukatatae 


YiBs Yi9s Yeos 
INTEGER =H K3 
REAL WBS 
BOOLEAN _O»ER _ 
SwITCh GENERAL FORWARD 3 
SWITCH GEN FORWARD 3 
SWITCH GENDESIG FORWARDS ES eee 
REAL PROCEDURE FUNC AAA)# REAL AAAS FORWARD; 
SWITCH GENDESIG © GENTAtB), IF D THEN GENERALCO/2) ELSE 
| GENLC+i)» GENDESIGE4)» GEN(H,(46%2])3 


SWITCH GENe GENERALLC3 MOD 2]% GENERALCFUNCI7/4))5 
GENERAL CCA+B x( H/2) #¢ 3 DIV 2)))8 
SWITCH GENERAL © X14» X20 X3* XG» X5* X63 
REAL PROCEDURE FUNCAAA)3 

REAL AAA3 

BEGIN 

FUNe© AAA/23 

} END3 | 
HeT3 Ae 3/43 Be 7/205 Ce 9/1403 De TRUES Ee FALSES Ke 43 


GO TO IF D THEN Yi ELSE Y23 TEMPLKI*REALCD)S Kekel3 GO TG Y33 


103403;90 T 0062 


Yta TEMPCKJ¢ 13 KeK+1s GO TO ¥33 
Yo TEMPEKJ© 113 KeKels t 


Y3* GO TO IF € THEN Y4 ELSE GENDESIGLAIS TEMPEKJ*O3KeK+1s GO TO Y53 


Yaa TEMPEK © 243 Ke Kelis GO TO YS. 
MAN CTEMPEK)® 2 J KeKets 


Y53 GO TO IF D THEN GENDESIG(CA+1) ELSE YO3 TEMPE KI]©0O3 Kekel; 


10340040 7 0000 

0340050 0000 
10340060 rt 0000 
10340070 7 0000 
19340080 0000 
10340081 tT 0000 
10340082 7 0000 

024008 Q000 


10340086 Tt Q000 


10340;00 YT 0007 
10340410 Tt 0018 


103401420 7 0029 


pete ea 10340330 T 0037 


10340140 Tt 0058 
10340150 ¢ 0058 
10340160 7 0058 
10340170 tT 0058 
10340180 7 0060 


10340090 7 Oo0co 


71 


10340210 7 0069 
10340220 T 00 
40340230 y 0084 
10340240 tT 0085 
10340250 f 0093 
40340260 7 0096. 
10340270 rT 0100 


Data Documents/inc. 


oewoenrnn FF wn = 


3 . 
: i] 


5 6 & SS SESE SESEREEST SB SB 
Ess : 5s 58 


a RS 


(SS 9 


GU TO Y73 
Xat TEMPEK]*3 + KeKeis GO TO Yrs 


YO? TEMPCK)]© 344 KeKol3 


Y7: GC TO IF 0 THEN CIF € THEN Y8 ELSE Y9) ELSE Y103 TEMPLK]¢03 KeKeq; 


GO TO Y113 


at EMPEK]¢4]1) Ke Ke O.T0 yu1a3 


Y93 TEMPE K]*¢43 Ke K413 GO TS Yit3 
Yi0% TEMPCKIe423 Ke K+13 
Yat! GO TO IF £ THEN Yui2 ELSE IF E THEN Yu3 ELSE Yu4s 
TEMP(KI]¢O3 GO TO Y153 
“WERE FEMPCKSeS13 KeKels GO TO YI5S 2 


GO TO Y15;3 


KeK+13 
Y¥u38 TEMP(K]¢523 Keke} 


Y143 


7 ¥15% GO TO IF E THEN GENERAL(5] ELSE IF E THEN GENERAL(6) ELSE} | 


TEMP(KJ]¢5 4 Ke Koi 


GENDES{G(3)3 TEMPCK]¢03 KeKe1s GO TO Y4165 poeta 
X5$ TEMPECK] ©6135 KekK+15 GO TUL Y163 
X6t TEMPCK]*625 Kek+1s GO TO Y163 : 


X33 TEMP[K]¢6 4¢ KeK+ 13 


Y163 DeFALSEsS GO TO IF E— THEN CIF € THEN Y17 ELSE Y18) ELSE IF ¢€ THEN 


CTF D TREN Yi9 ELSE Y20) ELSE GENDESIGCH, C4632] -1]3 


TEMPEK]*0 # GO TO x473 


Y17% TEMPCKI]*713 GO TO x473 


¥188 EMPCKJ]e/72s GO TO x47? 


Yi9t TEMP(K}e734 GO TO xa73- 


10340280 
10340290 
0340300 
10340310 
10340320 
: a 
10340340 
10340350 
10340360 
10340370 
10340380 
10340390 
10340400 
10340410 


10340430 


10340440 


0340450 
10340360 


10340470 


10340480 
10340490 
10340500 
10340510 


Y20% TEMP(KI« 743 GO TO x47 


Kat TENPEKI©73 
Ku7s | ie 


FILL ANS C*J WITH OcT1» OcT2» OCT3s UCT4» OCTS5S» OCT6s OcT?3 


CVNe© 73 


10340520 
10340530 
10340540 


10340550 


~~ START OF SEGMENT 


‘te ONG 


1034057C 


T 


T 


T 0470 
tT 0473 
Q477 
T O181 
7 0187 
1 0194 
tT O497 
T 0199 
020; 
tT 0205 
7 0206. 
0210 
T O211 
halal Seliahalatel| 
NEX 
T O212 


10340420 7 0464 


Data Documents/inc. 


*. B o3 5 
, bs ra) & a NS ss x * 


oo wn mo TF ee WH = 


x 


3 
i<es Oo © 8 yw OD OH 


Be eS 


o » 23 8 & 


(ls 8 


ENDS 


PROCEOU 


BEGIN 


Aeg2) 


GQ TO 


X1i 


P14 
Pot @t TO 


PasGO TO 


PNO* 343 10340580 t 0213 e 
VERIFY ~~ ee £039460590 7 0244 
21@ 
Peek. ee ee 10340600 0214 3 
71 +8 222 LONG» NEXT SEG Je 
RE P353 COMMENT SUBSCRIPT EXPRESSION OF A SWITCH DESIGNATOR 10350010 7 0174 le 
Ds i OOS Eh nn eng ee ee es ee Ce 0350020 ¢ : 
10 
10350025 7 0474 @ 
LABEL Xi» K2> X35 KGs XS» X6p Ply P2» P3 P4, P5, PO, PT, 0174 te 
| | bo ee S TLL AA Skee i 
PBs P9» PLO»e Pils P43 10350035 T Occo "/@ 
REAL AeBseCS BOOLEAN Ksti Ts 10350040 7 0000 le 
INFEGER  FreGske Qs | i a Beet eatenkeee fee eee 10350050 T 0000 f 
SWITCH SUBS* XL9X2eX3*X49X5e XG 3 10350060 T 0000 1@ 
INTEGER PROCEDURE SUBSVAL(SWICHVAL)3 ————_ ~ 10350070 tr 0006 le 
INTEGER | SWICHVALS piel eee so a, OSBOOEN. T0006 i 
BEGIN 10350090 T 0006 1@ 
UBSVAL*SWICHVAL + 143 ls A ii iia 10350100 7 0006 le 
END at x ne an a a le, eect en se tnasnln aS peer 10350110 0008 2 
Bed/33 Ce 2/13 Fe773 Ge 5535 He 213 Ke TRUES Qey3 10350142C T 0010 1@ 
Ce FALSES 49350530 FOOTE : ‘ 
IF K OR L THEN SUBSE 2*%C =(A4B8)) ELSE P13 TEMPLQI+0; 10350340 7 0018 : 
Q+o+413 GO TU Pas 10350450 7 0027 1@ 
TENPLOl¢1?) GeQel3 GO TO Pas 10350160 T 0029 +e 
TEMPLQ}E115 060013 aO TO P33. 10350170 7 0033 M 
IF L THEN P3 ELSE SUBSE (SUBSVAL(3) MOp A) + AJ3 10350180 T 0037 1 
QeQ+is GO TO F O350j90 F DOaG . 
| 2 | s @ 
TEMPLQJ*21sGe0s13 GO TO Pas 10350200 7 0046 
TEMP(Q]#25 QeQ413 10350210 T 0050 1@ 
IF OK REN oy: P™AB" MOD FAW + * —- H3I50820 065 e 
atin ass oe eee ace ae | 1@ 
_TEMPCQ)¢0 J Q¢Q413 GO TU Pes 10350230 7 0060 ; 
TEMPLQ]*©O § QeG4ts GO TU P63 10350240 T 0066 @ ® 


Data Documents/Iinc. 


a 5 8 y 5 ~ ~ 


8 
X32 TEMPCQI]¢33 Geatls GU TO P65 10350245 T 0069 q 
1 Pet GO TO IF K AND NOT L THEN SUBSE"A"=SUBSVAL(42)] ELSE P73... 10350260 7 0073 
TEMPLQ]*O } QeG+is GO TO Pas | _ 10350270 7 0081 
P7% TEMP(U)*41s QeQ+]13 GO TU Paes 10350280 T Q084 
X4¢ TEMPCQ] « GF QeOeis _—-— 10350290 7 0068 
Pat GO TO IF L THEN P9 ELSE SUASEH» (4216) ¥(C*A)® 19) +473 — 10350300 1 0092 
R TEMP[Q} © U 3 GeGeys GO TO PLO; 10350310 T 0099 
3 POS “TEMPCQ]* 514 GeOsis GO TO P10; a 10350320 7 0403 
. XS} TEMPCQ)* 53 Gegers et 0850330 7 0106 
P P1OtGC TO If L THEN P11 ELSE SUBS[SUBSVAL(A,([4513])43)3 10350340 T 0110 
k TEMPLQ]©0 § GO TO Pad; "40350350 T 0320 
—_ P11’ TEMPLQ)+ 61% GO TO Padus eet 0350260 t 0 
X6t TEMPLQ]® 6 3 10350370 T 0425 
oe 09950980 1 0107 
FILL ANS £*) WITH OCTL» OCT2» OCT3» UCTS, OCIS, OCTO s 10350399 7 0128 


START OF SEGMENT «*eteteiwe 74 


7a 9S 6 LONG» NEX) SEG 73 


CVNGO 3 fo Ben vipseznaes eee ae 40350400 Tt 0429 

PNOG€353 10350410 T 0430 

VERIFY 10350420 T O31 
END} , 0350430 7 0 


3 ee es oo 
Es 8 : sy 


73°75 139 LONGs NEXT SEG 10 


PROCEOURE P36s COWMENT COMPOUND STATEMENTS | 10360010 7 0176 
BEGIN LABEL LirL2oL3eb4rL5oL65 ae 10360020 7 0174 


START OF SEGMENT a*etatutae 75 


BEGIN COMMENT DUMMY STATEMENT TEMPLi}*6 END} ENDS —$0360030 7 0000 
BEGIN END} | | pe gee” ee Pe eee 10360040 7 0900 ; 
BEGIN 10300045 T 0000 

a BEGIN BEGIN BEGIN TEMP «2 END END END oe er ae 10360050 7 0000 

’ TEMPE). ¢33G0 TO LIS a 10360070 7 000 


L2tTEMP(5] ¢ TEMP(4)3G0 TO L33 190460080 7 OnC4 


Data Documents/inc. 


* a z) zy E 5 a SS ny Th 3 3 x 
b x > & , 3 (S & . d 


- 


I 


BEGIN 


Lit TEMPC4) «+ TEMPE 3];GO TO Las 


3tEND 
ENDS 


BEGIN 


GO TO L4 3 453 GO TO L163 


JEGIN 


END3 


LOtENDS 


ENO} 


FILL ANSC*] WITH OCTOs OCT2» GCT3s OCT3» OCT3» OcTés 
| START OF SEGMENT wt akwkakae 


CVN © 63 


PNO ¢ 363 


Rat TEMP(6) © 67G0 TO LS 


VERIFY 


BEGIN INTEGER lle 12s 135 REAL Rl» R2s R34 BOOLEAN Bly, B2, B33 


Litpl « Be « b3 «¢ TRUE 


75 +S 


PROCEDURE P37s COMMENT 464 BLOCK» 5.0.2 DECLARATIONs CoColeo11719"62) 


ARRAY alCit3ys AeCitseitals ascifasifaeit'3i3s Capel Ly» Loe C3; 


Rl ¢ 1) R2 © 23 RB 33 


* 
’ 


FOR I1 * 1 STEP 4 UNTIL 3 00 


L2teeGin ALCIi] « yis FOR [2 ¢ 7 Er 


1 UN 


AZCTist2913) « A2lCIis12) + 133 


LateNng 
ENB? 


11 ¢ 13 


I2 ¢2 ; 


I3 ¢ 3; 


BEGIN A2CI1s12) ¢ J1+325 FOR [3¢, STEP 4 UNTIL 3 Of 


COMMENT INITIALIZATION DONE; 


BEGIN COMMENT RE*OECLARATION OF LABEL AS BOOLEAN VARIABLS 


BOOLEAN Lid Li ¢ B15 IF ka THEN TEMPEY] © 1 


190360090 ~ 0007 
10360400 7 0007 
10360420 0010 
10360130 T 0010 
~-:10360150 T O010 
10360460 0010 
10360370 T 0011 
10360180 7 OO1i 

0360190 0014 
10360200 T 0014 
10360210 7 0015 

76 

6 LONG, NEXT SEG 75 

10360220 T 0016 | 

103460230 Q018 

19 LONG, NEXT SEG 10 
10370010 T 0474 
10370020 Tt 0474 

START QF SEGMENT wteturewee 77 
10370030 T 0000 
10370040 Tt 0006 

10370050 T Oo10 
10370060 Tt O01; 

0370070 Tt 0014 
10370080 T Ooq9 
10370090 Tt 0028 
10370300 7 0028 
10370110 tT 0032 
10370120 7 0034 
10370 30.7 0034 

78 


START OF SEGMENT «vata dwtnn 


Data Documents/inc. 


> oD 3 S & 


oo n~ ®DB FTF FF WH = 


(Sl & 9 


END3 sO 10370140 Tt 0902 


78 +8 4 LONGs NEXT SEG 
BEGIN COMMENT USE OF GLUBAL VARIABLES AND RE"DECLARATION UF AN 103703150 0036 
ARRAY AS A LABELS LABEL A3eL13 103790160 T 0036 


START OF SEGMENT axatatetnn 


IF Ri S R2 THEN GG TO Li ELSE GO TO Aj f 0370170 rt 0000 

LIisTEMPCE) «© R35 10370180 7 0001 
A3TENDS 10370390 tT 0003. 
| 79 +8 ra ONGs NEXT $ 

BEGIN COMMENT SWITCH DECLARATIONS; Lapel Lie Lae L353 SWITCH SW1 10370200 tT 0037 


"START OF SEGMENT weutuwawan 
* Lie L2e 43% GO TO Swileds; 60 TO Lid L2t TEMPC3) + O43 | 10370210 0000 
List 3% ENDS 10370220 Tf O00Q09 
80 738 11 LONG, NEXT SEG 
BEGIN COMMENT NESTED RE"DECLARATIONSSINTEGER I23 12 + 13 19370230 r Oo38 | 
START QF SEGMENT avetawetne 
BEGIN INTEGER lis 11 ¢ 12 + 13 10370240 7 0000 
| START OF SEGMENT weutekenen 
BEGIN INTEGER Tes I2 © [1 +13 10370250 7 0001 
. START OF SEGMENT whawakteten 
BEGIN INTEGER I4s Ti ¢ 12 #35 TEMPLES) «© 14 ENDS 


a 


10370260 7 9090 


START OF SEGMENT «tet ewan 


84 4S 4 LONG, NEXT SEG 


_TEMPLS}) © J2 10370270: 000; 
ENDO; TEMPC6] ¢ Ti 10370280 fT 0003 
83 +8 5 LONGs NEXT SEG 


ENOS TEMPE7) « 12 


82 18 5S LONG, NEXT SEG 


ENDS TEMPCO) © 12 3 TEMELOY © Th 3 10370300 tT 0003. 


BEGIN COMMENT SPQT=CHECK OF ARRAY VALUESS ARRAY B1(11!13}> 10370310 y 0042 


77 


79 


80 


77 


81 


82 


83 


83 


82 


10370290 0003, 


84 


Data Documents/Inc. 


4, * a 4 E 5 


GS 


es 3S FE SREESVBSERERER 


START QF SEGMENT whawuwe tae 85 


B2Crisd3-Tislad, Ball ysl 3eTasTa-Titi3is INTEGER RysReeR33. 40370320 T 0005 

FOR Ri « 1 STEP 1 UNTIL 3 DO | ee 0370330 002 
BEGIN BICR1] ¢ A1CR1]3 FOR R2* 1 STEP 1 UNTIL 3 DO 10370340 7 0023 
BEGIN BetRieR2) « A2(RisR2I3 FOR RZ « 1 STEP f UNTIL 10370350 T 0027 

3 DO B3ILR1»R2eR31¢A3T RIP R22R3) — 0370360 0032 

END 10370370 T 0039 
“TENDS TEMPC10) © 810333 TEMPC11) « B2t3033;0 0 | 10370380 7 oda 
TEMPLI2]* B3L3-3-3)5 | at Me cd Se 0370390 tT 005 

ENDS TEMPC13] ¢ R13 TEMPLia] ¢ Ros TEMPC 45] © #33 10370400 t 0058 


85 15 62 LONG, NEXT SEG 77 


_________IF B1_ THEN TEMPC16) ¢ 34 If B2 THEN TEMPC47) ¢ 33) = OKO T0048 
IF B3 THEN TEMPCL18) ¢ 13 10370420 T 0053. 
PELLET ANST*D WITH OcTie Oct3» Oct100+ OcTés Octs» Octas Gcl3» —*710370430 T0085 
aS gt SR ee ae | sli heed! Os 2 ee 0 -GMEN eka eked ste) 
OCT2s OCT1L» OCT3s OCTSs OCTILsOCTi» OCT2, 10370440 T Q057 


OCT3, OCT1, OCT1l» CCTIs 10370450 T 0057 


18 LONGs NEXT SEG 


CVN ¢ 48 § PNO ¢ 37 3; _ eee ee 10370460 T 0057 
VERIFY 10370470 T 0059 
END: —- 10370480 T 0059 


(77 38 69 LONG, NEXT SEG 10 


PROCEDURE P383 COMMENT: ASSIGNMENT STATEMENT JW 30 OCT 633 10380010 T 0474 
BEGIN eee te 10380020 T O474 
REAL A$ 10380030 T O174 


Sanne 
START GF SEGMENT s#e¢uteten 87 


INTEGER JeKoME . : 10380040 T 0000 


BOOLEAN S»Ts | | use 10380050 T 0000 
AAUPHA ZI 8 eS < 7 10360060 T 0000 
ARRAY xtitgly = 10380070 T 0000 


Data Documents/inc. 


e ® 
@ REAL PROCEDURE KORK3 10380080 tT 0001 . 
, BEGIN oO er ee 10380090 T 0001 
: TEMPLi2Je¢ KORKe TEMPL10) 0380100 000 
@): END} 10380110 T 0004 
TEMPL11] « 2?/ai 10380420 T 0008 
® : TEMPL21¢1625 | | | 8380;30 T O41 
& i Ze"WEILZIR"G 10380140 T 0013 
pe & ~ TEMPC3] « 23 3 49380450 7 0013, 
ns Me73 0380160 00 
i 
; 
e b +_If rr Seen ee WoL 
er | SM < TEMPC2) AND TS 10380480 T 0017 
- a —UVEMPCOG] © IF S THEN 1 ELSE OF))))™™”™~<“—~=C“‘“<ua a‘ SSS 10380190 T OQ19 
z J + 67/33 : 10380 OO T 0022 
al TEMPLES] © i 10380210 17 ooz4 
al Ke TEMPLI13 Se 10380220 7 0025 
ad a TEMPLO6) ¢ KS ese eee oe 10380230 Tt 0027 
er TEMPC7} © TEMPCB) © TEMPCO) © TEMPCA2s «40380240 + 0029 
TEMPLIO) ¢ XCLJl¢21/23 ee ga 10380250 T 0034 
e TEMPC11),04533) ¢ m,(4533); Sh es 10380260 Y 90038 
@F he KORKS | 10380270 t Oaa4 
; FILL ANST*] WITH UCT10{0000000000154* OCTaqae UCTO625317 {31510 10380280 7 0042 
, | Sec TKR MENT _« =F 
@ |. “octts ocTise OcT16s 0¢71010000000000154, O¢T1010000000000154 —=«1.0380290 t 00M4 
° 0071010000000000154» acT1010000000000124» OCT?» ) 10380300 : 0044 
OCT10100000000001245 oe 10390305 T 0044 
@ & | | | 8a yS 12 LONG, NEXT SEG 87 
‘ ola CVN © 123 ed 10380310 t 0044 
PNO « 383 103980920 0045 
ae VERIFY, oe | | 40380330 t o0Me 
END? -. mae ——T9ya0340 TF O04E 
e 


ono vw @O FW BB WH = 


Data Documents/Inc. 


y x. TKS = x. 
5 & & 3 ©  o&© a > 


. zy ‘ 


55 3 x 
<9 oO © ao ys OO WH 


87 +S 53 LONG, 


PROCEDURE P3935 COMMENT GO TO STATEMENT WITHOUT PROCEDURES AND SWITCHES» 10390010 T 


4.3» WIT? 11°9%62» THIS PROCEDURE DOES NOT USE _—=s—_——_—4g.03 90920 
NORMAL TESTING MECHANISMS OF TEMPsANSe VERIFY = 10390030 7 
THE PATH THROUGH THIS PROCEDURE IS AS FOLLOWS: 10390050 T 
bi b2 ob 4 5 46 &7 68 LO 1440 0390070 
L121 Li2 13 114 LiS L16 Li? 418 19 L20 10390080 7 


L21 22 b23 Lad t25 26 La? Lae tae 30 
L3h L32 633 134 135 136 L437 138 


Lo. L42 L43 144 L45 L46 La? L4a Lad 150 10390310 7 0474 
LS: LS52@ 53 (54 L155 56 C57 58 Ls59 L60 10390;20 tT 0174 


L6 62 163 164 LOS L166 Lo? L68 L69 L70 40390430 0174 


L71 L722 L73 L743 10390140 T 


10390150 T 0174. 


NEXT SEG 
01474 
0474 
0474 
0174 
0174 
0474 


0174 


START OF SEGMENT atkututetnn 


Ly?obyBob y9ol Qe aaeLaarb adel a5al 26rL a7 ol 2beL 29eLa0eL 3isbaas 10390470 T 
L33sL35¢L 30rL 37 oL 38sL IV oL4lrLageLudeLasrLurLa7 rl uerLu9rl50» 10390,80 
LS2°US SP LS4rLSSrLSGr LST aL Se SIe G2r OS LOdLO7oLTOrL7 isl 72s 10390490 Tr 
PU TESL TIGL GOUT TOL BAL PIPL GUPL BI AL BZALGIPL EVIL BSL OGsL OTs ~TOsFUZOT FT 
LBBrLB9eL90eL G13 = 10390210 T 
MONITOR FNOKCL19L2 5b 3s L4 LS oL 6 oh? LO ol FoL doll 2eLl3oLd4olL 15 oLbb, 10390220 1 
LA7eLi Goll 9elLeOolee sles eae esol eosLe7elL2erlaoeL30el 31, ’ 10290230 T 
L33rL 350 36rL 37 eb 38rL39eLu tel uarL adel 4S ol gorL a7 rb 48sb49rb50, 10390231 T 
L532 9h 535694 6h 55 956 oh 57 pL 58 oh 59 pL 62 963 rLO4 sLO7 pL 70,L71,472, 10390232 7 
L7SeL Zool 75eL ool 77a 7OeL 79ol BOsL Biel Geel adel yeh BSel BbsL G7» 10390233 7 
LBBrLa9eL90eL91)5 . 10390234 7 
10390235 Tr 
INTEGER [3 — 10390240 7 
At MO TOcbe? ee ec eden: 10390250 7 
L46t GO TO L473 10390260 Tr 


0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 


0000 


0000 
0000 


0000 
0000 


0004 


10 e 


89 


o oO n~ mM TF F WN = 


= 


Data Documents/Inc. 


3 ~ : 


TSK TK = x. 


5 8 FS Se FE SESE 


&® = 


L48: GO TO Lag; 10390270 rt 0008 
L53! GO TO L543 ——_ “~ 10390280 T 0012 
L2t IF TRUE THEN L3% GO TO La 5 _ 10390290 0016 
L4: IF TRUE THEN LS! BEGIN L6? GO TO L? ENDS 10390300 r 0025 
“LOS IF TRUE THEN L9t BEGIN Lagel L103 oe 10390310 t 0038 
_ ART 0 3 N aiee oe eaun 90 
MON]TOR FNOK (L403 10390312 T 0000 
L10% GO TO Lii ENDS OO 10390320 r 0000 
9 ONG. NEXT S B9 
L913 IF FALSE THEN L14% FOR 1¢0 DO L15$ GO TO (163 10390330 T 0047 ° 
~  [9O: IF FALSE THEN L869; GO TO (74 ELSE L493 GO 10.50 © 10390340 7 0062 
Li2t IF TRUE THEN L23% GO TU Ly4 ELSE Laat GO TO Ly2s) 10390350 tT 0077 
,88% IF FALSE THEN L47!GO TO L148 ELSE L37! GO TO L383 10390360 7 O094% 
(67? IF FALSE THEN L86: GO TO L?4 ELSE L581 GO TO [59% coal 10390370 7 0108 
L865! If FALSE THEN L63: GO TO L64 ELSp Log? GO TO 463e | 10390380 + 0449 
L843 IF FALSE THEN L52: GO TO .53 ELSE 1833 BEGIN 116% GO TO 417 10390390 rt 04133 
END 49390392 7 0152 
82! IF FALSE THEN L19% GO TO 120 ELSE L201 BEGIN LABEL L243 __ 10390400 7 0454 


START OF SEGMENT «et atatawae 91 
MONITOR FNOK CL21)s Lett GO TO (22 END _ 10390410 7 0000 
| 91 7S 7 LONG, NEXT SEG 89 


L23t IF FALSE THEN Lea: gO TO L23 ELSE L2edt FOR Jeo pu 10390420 tT 0465 
vest Go TO ca6; 40390030 7 0187 
Lait IF FALSE THEN Lays GO TO Laz ELSE L268 IF TRUE THEN L27s , 10390440 + 0,85 __ 
GO TO 2a 10390450 7 0201 
L283 FOR I+0 DO L29tGO TO L303 2 A 40390460 F 0205 
30 FOR 14000 L31 BEGIN L321 GO TOL33 ENDS 10390470 7 Oa4s 
L386! FOR I¢O0 DO L39% BEGIN LABEL Luo; 10390480 r 0230 


: START OF SEGMENT aeetatwtee 92) 
_MONTTOR FNOK (L40)3 > te 10390482 7. 0000. 
Lao: GO TO Lai ENDS 10390490 t 0000 


Data Documents/Inc. 


oH 5 7 . 
5S 3 ; 3 S ; ys 8s aS 


1 L553 
2 
3 
4 
5 
6 
ui Leor 
8 ; 
9 L79t 
10 
hn 783% 
ha 
L77t 
hal : 
5 
8 
7 
8 
9 
1 
L768 
< L753 


L673 


(SS 3 


FOR [+0 DO L56% FOR TeO DO L573 GO TO L583 


70% FOR I¢0 DO L74s IF TRUE THEN L72t GOTO L73 ELSE L733)” 


42% BEGIN LABEL L433 eee 


MONITOR FNOK (L43)3 La3? GO TO Laa ENpS 


L50t BEGIN LABEL 1513 = aipF tas 
MONITOR FNOK (U51)s L5it BEGIN GO TO L52 END 


BEGIN LABEL L683 


MONITOR FNOK (L68)5 168% BEGIN LABEL L693 


MONITOR FNOK (L69)4 L693 


GO TO L70 END ENDS 


92 15S 


7 LONG, 
10390500 fT 


NEXT SEG 


0241 


GO TO L743 10390520 ft O275 
BEGIN L7?7? GO TO L6 END; ee 10390530 7 
BEGIN L54: GO TO 455 ENDS ee 0390540 
BEGIN L17! BEGIN Liat GO TO L19 END ENDS 10390550 T 0296 
BEGIN L33! BEGIN LABEL L343 es 10390560 7 0308 
oa ~— ae START OF SEGMENT seetutiwan 
MONITOR FNOK (L34)s L34t GO TO L35 10390562 T 0000 
ENO ENDF CO” 10390570 tT 0003. 
stat est aot ) 7 LONG», NEXT 5 
BEGIN L35% FOR [eo pO L36t GO TO L37 ENDS 10390580 T 0316 
BEGIN L44? IF TRUE THEN La5?Go TO L46 ENDs 90590 FT 0930” 


0390600 O34 


START OF SEGMENT wenenkxtae 


10390602 7 0000 


10390610 Tt 03448 
START OF SEGMENT watawakwine 


10390612 1 0000 


ENO; 10390620 7 0005 


95 18 7 LONG, NEXT SEG 
10390630 7 0352 
START OF SEGMENT #tuwanetns 
10390632 7 0000 
START OF SEGMENT ERE L ET 
0000 


10390640 T 
97 8. ? LONG, NEXT SEG 


56 5 LONG, NEX? SEG 


ht eee re 10390510 +t 0259 


ONG, NEXT SEG 


89 


89. 


94 


89 


95 


89 


96 


89 
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oo ~~ Hh OF WY NY 


= 
o 


uy S) aS 5 


Am A 


L598 BEGIN LABEL L60» Lol; 


MONITOR FNOK (L60e 16493 


643 XIN ABEL ore. 663 


MONITOR FNOK (L659 166)3 Lost IF TRUE THEN 


L74% 
ENDS 


PROCEDURE P403 COMMENT OUMMY STATEMENT 
BEGIN 


REAL AsBeC3 


NTEGER Je Ks Los V3 
| BOOLEAN Fats 

ALPHA BETA; 

ARRAY X£133)3 


LABEL Lis 


TEMPLile 43 


GO TO L413 

Lis 

TEMPL2]¢ 23 

FOR 1#3 STEP 1 UNTIL 8 QU 


BEGIN : 
LABEL kas. 


60% FOR [+0 DO 


10390650 7 0356 


START OF SEGMENT s#eewtetae 98 
1039065; 0000 
L613 GU TO L62 ENDS 10390660 7 0006 
98 78 13 LONG, NEXT SEG 89 
0.390670 0 aac 
START OF SEGMENT at atatakan 99 
10390672 T 0000 


661 GO TO L67 ENDS 0390680 7 0003 


99 7S 12 LONG» NEXT SEG 89 
10390690 T 0364 
0390700 036 


89 7S 372 LONG, NEXT SEG 10 


EK  2NOV 623 10400010 7 0174 
___10400020 T O174 
10400030 YT 0174 
START OF SEGMENT weeteketen = 100 
10400040 0900 
10400050 T 0000 
10400060 T 0000 
10400070 T 0000 


10400080 T 0001 


10400090 7. .0004 
0400300 0003 
10400110 T 0003 


~ 40400320 tr 0004 


00030 TF O00M 
104004580 tf 0005 


10400360 7 0007 
10400170 1.000; 


START OF SEGMENT wxtewuketew 40) 
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a 5 : 5 ~ 
5 © a oh en bb be Ss es es S&S & ~  N 


HUQLEAN TRS 10400180 T 0000 e 
TEMPEI4S)« 1453 5 3G eee 19400190 T 0000 e 
TRe TRUE 3. geet 0400200 O00 2 
IF TR THEN GO TO Lai 10400210 t 0003 |e 
TEMPE1S) «© 193 | i 10400220 7 0004 le 
; : 10400230 0006 | 9 
Let ; 10400240 r 0906 1@ 
TEMPETI© Th ee 10400250 t 0007 : 
“ENDS e | 0400: 60. 0008 i 
101 7S 10 LONG, NEXT SEG 100 ie 
ha 
BEGIN aoe a 10400270 7 0010 e 
REAL PROCEDURE ABCD 10400290 7 OKI : 
START OF SEGMENT ukutnwahanw 402 @ 
ii BEGIN ee "49400300 T 0000 ; : e 
LABEL L33 10400305 0000 2 


START OF SEGMENT «atu tatwe 103 


INTEGER J3 10400306 r 0000 


L33 ; eae 400310 0000 29 

FOR veO STEP 4 UNTIL 3 pO 3 10400320 t 0000 3 @ 

END : —— + nOaOOS AO: 0003 le 
ee ee. 10400340 7 0003 

103 78 6 LONG, NEXT SEG 102 1@ 

EMPCLG]« ABCD —_ 10400350 T 0000 te 
END 3 _ cue 10400360 y 0002 | 7 

102 yS 3 LONG, NEXT SEG 100 

FILL ANS[#] WITH OCTys OCT2s OCT3s OCTds OCTS* OCTo» OCT7» 10400370 F 0011 le 
a . | START GF SEGMENT veeeeeeven 104 — st 

OCTLO» OCT1I1» OCTI2» OCT13» OCTI4» OCTI5» OCTO, OCT0; 10400380 y 0012 1@ 

sips . fg gs | : 194 78 15 LONG, NEXT SEG 400 le 

PNO*403 VERIFY 19400410 7 0013 @ @ 
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oo ~ HF TF FF WH = 


= 
a 


eS ae a 


ost 
a 


5 ~ ~ 5 
p oOo Nn = oO © 2D wy OO 


id ~ 3&4 


B 8 = § 8 8 


a a 


ENDS 


PROCEDURE P41; COMMENT IF STATEMEN U) 31. 3 623 
BEGIN 


BOOLEAN AsBs 


LABEL ABLE» CAIN» FIN1» NExTS 
PROCEDURE NUTH(F1eF2)3 
BOOLEAN FieF23 
BEGIN 


IF F1 OR Fe THEN TEMPE3] © TEMPC3)443 


TEMPC3) ¢ TEMPL3}+6 


19400420 7y Oo14 
100 78 21 LONGs NEXT SEG 10 
10410010 7 Oj74 


10440020 7, 01474 


10410030 T 0474 


ia MEN pik Wekketek 05 


> 
KJ 


10410040 fT 0000 
10410050 7 0000 
1041005 0000 
10410060 fT Q000 
10440070 rt 0000 


O4100680 ely 


END; 

A « TRUE; 

a + FALSES 

IF A TREN TEMPC1) « 1353 

TF 6 THEN BEGIN TEwPt2]*2) GO TO NEXT ENDS 
TEMPC2] © TEMPL2) +35 


NEXT? IF A THEN NOYTHC(AS8)5 


TEMPL4) ¢ 1005 

ABLE? IF A OR B THEN TEMPC4)] © TEMPL4)473 
IF A OR 8 THEN GEGIN TEMPLS) + OF 
TEMPE5] + TEMPE5J41 ENDS 


IF A THEN BEGIN REAL MsNG 
Me TEMPL6) © 113 
Ne TEMP(5]3 


“TEMPLO] © TEMPLO6) #1 ENDS 


GU TO CAINS 


10410090 T 0006 
eee 10410100 t 0007 
04190110 TF 0008 
104191420 tT 0009 
10410130 7 0012 
10440340 T 0045 


10410150 T 0018 


RB? IF A THEN GO TO ABLE; . 10410160 7 0019 


10410470 1 0020 
10410180 + 0022 
10410190 1 00a? 
10410200 0030. 


10410210 7 0033 


START OF SEGMENT eted eee a ee 106 
10410220 7 0900 


10410230 Tt 90002 


~~ tearoa40 + 0003 
0698S 8 LONG, NEXT SEG 10! 
10410250 T 0035 


 ] 
 ] TEMPL7] ¢ TEMPE7)4+303 10410260 7 0035 e 
IF A THEN CAIN? TEMPL?72 © TEMP[7]) +313 ee eee eee 0410270 F 0038 
e \@ 
30 T0 FINI; ; Soe ee he e  e eee 0410280 0043. 3 
4 
® TEMPL8) « TEMP(B8)4273 10410290 7 0043 |@ 
6 
e IF B THEN FINI’ TEMPL8] © TEMP(8)+263 10410300 7+ 0046 ‘le 
f 8 
FILL ANSC*) WITH OCT207* OcT3* OCTi2+ OCT?» OCTi1*» OCTi4,» 10410310 7 0051 3 
10 
) START OF SEGMENT weetueeeen 107 |@ 
1 
| OCT?» OCT343 | 0440320 0052 13 
° ) - 104s0580: 7 052 le 
| : O7 +S B LONGs NEXT SEG 105 | 45 
16) 
 ) CVN© 83 10410330 t 0052 i@ 
18) 
PNO ¢ 413. ee ee 10410340 7 0053 ig 
oT | : 1@ 
MEE OEMS, 3501 38 Saeco OS Oe eS AE ON Te a ee ae ee en Pe ee 10410350 0054 21 
4 2: 
@ |: ENDS 10410360 T OQO54 ral @ 
24 24) 
g SS eo eg ae atte ee ere ae ew gee EGE 10 : 
@ a : : : od @ 
‘ : PROCEDURE P42s COMMENT IF THEN ELSE STATEMENT JW 31 OCT 623 Lo420010 + 0174 2 
3 a a ee 28 
5 @ BEGIN 10420020 +t 0174 21@ 
7 B0 30 
ee x: a | 
: INTEGER Jo 10420030 tT O474 31 
s@ 4 ’ 2 @ 
nay __ __START OF SEGMENT atatarnnanse 
°: BOOLEAN Aras 10420040 T 0000 : 2 @ 
B6 36) 
‘ INTEGER X»¥o =. 10420050 Tt 0000 37 
3 B8 . ° 38 @ 
Bs LABEL BAKE » MANNY » MOE » JACK »00G EASY »F OX LASTS 10420060 T 0000 : 
40) 
e Ae TRUES 10420070 T 0000 «|@ 
4 42) 
Be FALSE: 10420080 7 0000 - aaa 
@ /- ; o ; a @ 
Xe Ye 4; . 10420090 Tt 000; 45 
® 10420100 T «| @ 
PCLI¢33 420410 7 R 
A AND B THEN TEMPC@] © TEMPL2)4+? ELSE TEMPL2) * TEMPE 22483 10420120 7 51 
52 5 
@ |: IF X24 OR Y=7 THEN TEMPL3] © TEMPE 3]+9 ELSE IF A ANO B THEN 10420130 tT 0019 «| @ 
eon . TEMP CD] © TEMPCOD412 ELSE TEMPOS) © TEMP C3} 4123 10420140 7 G025 . oo @ 


+F 7 AND : a “fh avn + ae . é = ay = +e ml rs 7 Re rele 
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e eet Ae ‘ 
@ TEMPC4) © TEMP(4]+18 ELSE TEMPL4) © TEMP( 414193 10420160 7 0038 @ 
IF IF A OR B THEN X®Y ELSE X>Y THEN TEMPL5) © TEMP(5)¢24 ELSE 10420170 + 0045 
@ | TEMP(S) + TEMP(51+4253 0420180 Te 
ry IF A THEN GO TO BAKES 10420390 T 0055 
Je Jet3 10420200 7 0056 
il BAKES JF B THEN TEMPL6) « TEMPl6J]432 ELSE TEMP(6) ¢ TEMPr6) +4333 10420210 0057 
e ; IF X#3 THEN GO TO MANNY ELSE IF X=4 THEN GO TO MOE 10420220 T 0064 
i ELSE GO TO JACK; _s 10420230 7 0067 
e" Je J+1003. | 0420: 068 
@} ° MANNY’ TEMPEC7) © TEMPL71J4+383 10420250 1 0069 
be GO TO Lasts | 10420260 t 0073 
® = MOE? TEMPL7I « TEMP(734393 eee 042027 00 
i GD To 0OGs 40420280 T 0077 
ps JACK? TEMPL?) ¢ TEMP C7J+403 iad 10420290 T 007? 
> : ue J+33 es 10420300 008 
e| | IF A THEN DOG! TEMPC8) © TEMPCL8)+98 ELSE TeEMPlS] * TEMPLa)+993 | 10420310 T 0082 
e| . GO TO EASY; 7 <7 10420320 T 0089 
Je J453 | — 10420330 T 0090 
@ IF 8 THEN TEMPL9) © TEMP[9]+300 ELSE IF A THEN 10420340 T 0091 
Pa ~ EASY@ TEMPCS]© TEMPCOJ+301 ELSE TEMPL9) « TEMPL9I+#3023 10420350 
GO TO FOXs | 10420360 
rd] Je J473 10420370 T 01404 
e |. TFA THEN TEMPCLOJ© TEMPC1024+600 ELSE IF B THEN 10420380 T 0105 
FOX! TEMPL10) + TEMP(10)4601 ELSE TEMPCL1O]* TEMP(1014602; 10420390 7 0409 
& 7 GQ TO LASTS . 10420400 T 0417 
| He NE hg as : 10420500 t 0118 
: “SLASTYCTEMP LAL). ep Oe | | “40420510 7 0419 
@ | FILL ANSE*] WITH OCT2s UCT{O» OCTiLt» OCT22» OCT30» UCT44, 10420520 T 0121 
el: a ee ae , | - : | START OF SEGMENT waweewenwe 109 
do per ars og tades 0cT455> OCTI31, OCTOR | 10420530 7 0423, 
Yd 109 +S 11 LONG, NEX! SEG 108 
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7 Se ys s e = & a a ey Pee PY Se S > 


CVN® 143 10420540 7 0123 

PNO« das a — 020850 T 0428 

3 . Y. 4 . Ren ee oe et tere Sto 0 0560 0 
ENDS 10420570 T 01425 


108 4S 129 LONG, NEXT SEG 10 


PROCEDURE P433 COMMENT IF FOR STATEMENT yh 31 OCT 623 —_ 10430010 0474 


BEGIN 10430020 tT 0474 


“BOOLEAN AsBs wa SG 10430030 ft 0474 
ees : | | START OF SEGMENT #ee**etetue 110 


INTEGER YoZzs 10430040 T 90000 
Ae TRUE oe oS _—-- 40430050 T 0000 
Bi Occ RD te a a re fee tte Bl Pl 10430060 T 0060 
aoe ae 10430070 T 0001 
IF A THEN FOR Y © Y+, STEP a UNTIL 5 DO TEMPC1] « TEMPC1}+53 = 10430080 T O002 
IF 8 THEN FUR Z + Zoey STEP 4 UNTIL 3 pO TEMPL2) + TEMPr2)433 10430090 y 00 
TEMPL2]* TEMPL2]+43 | 10430,;00 T 0019 
FILL ANSC#] WITH OcT31» OcT4; a ae 10430320 + 0022 


START OF SEGMENT atewawewwe L111 


111, 18 2 LONG, NEXT SEG 410 
CVN « 23 Se —_ 10430720 T 0024 
PNOe 433 a 10430430 T 0025 
VERIFY — 10430140 7 0026 


ExDs a ae ee 10430150 T 0026 


110 78 29 LONG», NEXT SEG 10. 


PROCEDURE P44; COMMENT FUR STATEMENT USING THE ARITHe EXPe ELEMENT $ 10440010 T 0174 
BEGIN ee ; re 10440020 7 0474 
“WEAR Neat : fo Se 10440030 7 0174 


START OF SEGMENT ate kaekkten 112 
iosaooae 900d 
_40440050°7 0000 


INTEGER FAEX3 10440060 YT 0000 
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3 ry . = ra) oD oO re S S 


o oN OD OF fF WY HB = 


SS BS 
x: 


ies 


BEGIN 10440070 YY Q000 
THREE® FAEX + 2 3 10440080 ft 06000 
e NDS 0 0090 000 


Ae 27.23 Be 203 Ce 5,53 TEMP[11¢5,5%3 TEMPLole 73 De 27323 10440400 


FOR Ce 243 DO TEMPL3]+ C453 10440410 T 0010 
FOR C+ BeA DO TEMPL4J+ Cea 5 | 0440126 1029 
FOR Ce TeEMPOC1] + TEMPC2] DO TEMPCSle Cs 104401430 T 0025 
FOR c# 0.4432) + 0,£40%3] DO TEMP[6] « CHa; 10440140 Yt 0032 
FOR C+ + D,C4484) + ("0904533]) DO TEMPL7) © C3 10440150 r 0039 
FOR ce THREECO) * THREEC2) * 0.04484] pO TEMPL8) «© G3 10440160 fT Q0045 
FOR Ce “ABY7 "AY 00 TEMP(9]* C-0,058025529043 = 10440370 T 0053 
pine ee POR OR TAB MOR A DO TEM iO Se GF oe i ee 0440180 006 
FOR Ce "AB" DIV THREEC2120) DO TEMPLI1]« C; 10440190 7 0068 
FOR Ce C42 00 TEMPCi2le C3 a i 10440200 T 0076 
FILL ANSC*#] WITH OCT1145400000000000» OCT?» ocTi2¢ . 10440210 T 008 | 
’ i 
START OF SEGMENT uavawewntes 
O0¢73131114631463446» 0¢6710100000000001 44» 10440220 T 0083 
UCTO» OCT10» OCTI40» OCTLO1» OCTU» OCTO, 10440230 1 0083 
Octa23 10440240 rt 0083 


113 7S 12 LONG, NEXT SEG 112 


CVNe 123 10440250 7 0083 
PNOe 443 tet, _——A0440260 T 0083 
VERIFY. Moe 7 1040270 T 0084 
ENDS - oO 10440280 + 0084 
jiz +8 88 LONG, NEXT SE 

PROCEDURE PU53 CONMENT FOR STATEMENT USING STEP UNTIL ELEMENTS 10450010 rT 0474 7 
BEGIN 10450020 t 0174 
REAL As 89 CBee 59050030 T0170 

, | START OF SEGMENT e#etceeaes 4 


INTEGER [+03 10450040 Tt Q000 


10 
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e 
@ REAL PROCEDURE CHECK(I)3 10450045 fT 0000 Ad 
e REAL 13 "04650046 TF 0000 1 
: BEGIN 7 | 10450047 7 0000 1 
r) CHECKel3S Lel+23 10450048 T 0000 | 
e ‘ ae | | | — 10450049 1 0002 le 
NIEGER PROCEDURE FOUR (FSUDS recut ee —— 0450050 D008. =. - 9 
@ i INTEGER FSU3 10450060 tT ov04 1@ 
e| BEGIN FaUR rau + 2.35 END; te ee oe 10450070 1 0008 le 
INTEGER PROCEDURE THREECFAEX)3 1045007 0008 i 
eo, INTEGER  FAEX} 10450072 T 0008 \@ 
e Ke BEGIN 3 — 8 HROO7R T 0008 : e 
C THREE* FAEX + 2 3 10450074 7 0008 21 
di END; 10450075 T O10 1@ 
iq: ~ "aw 25,5 3 8 20} Ge 3,5) TEMPLL] © 3,53 TEMPLZIe Pp 08 To . 
: : o ar AREF an 92> 2 Se ee ne eee — 0450090 0018 oh 
e- FOR C « 241 STEP 1 UNTIL 5 DO TEMP(3]¢ C3 10450100 Tt 0020 10 
of Ve FOR C « B™A STEP C#cC/5 + 1) UNTIL A+B DO BEGIN IeI+3; 10450110 T 
TEMPC4) * C# END} , ee ee 1045041 
°: FOR Ce TEMP(4)4TEMP[C2] STEP TEMPE4] UNTIL 44 DO 10450320 tT 0044 1@ 
Ps TENPUSI© 3 : TT GSOTIO 7 OOBG le 
> FOR Ce 0.64432) + 064033) STEP 1 UNTIL De(4434) DO 10450340 7 0052 " 
e TEMPL6]¢ C3 10450150 Tt 0058 1@ 
elt FOR C# Dj CaUIUT+C=H,THSTIT) STEP Oe CASTS UNTIL ees FF OHSOTEO 00ST i 
pet36t4) DG | 10450170 r 0066 ahd 
Or TEMPL/ Je C 5 10450480 7 0069 
Pe FOR C* FOUR (2) x FOUR (0 EPS UNTIL FOUR C16) DO ASU TOF OOTT 
| PEMPL@]* Gi 40450200 + 077 | ac 
@} FOR Ce "AB"/2 STEP "A" UNTIL CA" 1024 1061 0 10450210 t 0079 1@ 
oll ROR VEMa... eee vo [Oas0R20 TOC a 
ed _FOR Ce "AB" MOD "A STEP 1 UNTIL "AM 00 TEMP (tole cs. 10450230 1 0980 ; es 
e FOR Ce "AB" DIV THREE (2120) STEP De (4524) UNTIL 10450240 + 0098 @ °@ 
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THREE(Q) DO 10450250 tT 0103 
1 TEMPCIije CF 10450260 
: CeTEMPCitd: | 
; FOR cec+THREEC2) STEP 1 UNTIL Cel44i3)4THREECC,£4523)"1) OG 10450070 7 0112 
TEMPCAZIeCs 10450275 7+ 0122 
Nit FOR CeFOUR(2) STEP 2 UNTIL 15 DO CeCHECK(B)STEMPL13IJ «BS 0450276 0 
fi FILL ANSC*) WITH 0¢671010000000000034» QCT7» OCTS» | 10450280 7 0132 


START GF SEGMENT stanawewenw 115 


i 06T1134505246230276, _——=—acT16» OCTI4» OCTi2, OCT22» 10450290 7 0134 
: OCT2300* OCT21» OCT2» UCT7s OCT263 10450300 T 0434 
° 
ue “145 78 13 LONG, NEXT Seq 114 
1 ioe | -CVN¢133 Be Ses 0450310 0 
a PNO « 453 10450320 7 0135 
: VERIFY | | | "40450330 T 0435 
a Be Sehehae: wechhse 
a 114 yS 140 LONG» NEXT SEG 10 
: PROCEDURE PaG; COMMENT FOR STATEMENT USING THE WHILE ELEMENT 3 0 10460010 7 0174 
p BEGIN é : Fo sooo 10460020 7 0474 
REAL EeFocs 10460030 7 O174 


| START @F SEGMENT wtatavaten 116 
BOOLEAN AeB} . 10460040 0000 


BBS Ses FE 


INTEGER OU» Gs 10460050 rt 0000 

_. INTEGER PROCEOURE FIVE CFWS)S aid 10460060 7% 0000 
“INTEGER: RNER 8 a a 10460070 7 0006 
BEGIN FIVE « FWS x FWS ENDS 10460080 + 0000 


EeiS.8) Foie? Ge555) Deavaay aeTRUED a cy 70460090 7 0003 
; Se FALSED ee ee 10460300 7 0007 


TEMP{Lije 173 TEMPC2J¢ 73 10460110 r 0008 


a aes x FOR Ce +1 WHILE A OR B DQ BEGIN Ae FALSE} 10460120. 
eee ce hy TEMPOSg+ SS ENDD oud 


FOR C# Fee WHILE A OR B OO TEMPL4J* C3 Ae TRUES 10460440 7 
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0 7 3 S TKS = <a 3 3 = 
Dk 5 6 7 B G & f : oh 


TEMP£LG=1)¢5, 10460150 r 0028 e 
FOR Ce = TEMPCI] WHILE A ANO & OR A OO BEGIN 460460 T 0030 le 
At FALSEs TEMPIGI« C | ea ee 10460170 0034 ; 
ENDS 10460180 tT 0036 |e 
FOR Ce De tdGi2) + Del 403) WHILE SS 10460190 t 0037 le 
EQV Bp EQV B EQV B DO BEGIN | | a _ 0460200 r 0040 | ' 
IF A THEN At FALSE ELSE At TRUES TEMPL7]¢ ¢ ENDS 10460210 7 0043 1@ 
“FOR Coe FIVE. (3) 4 FIVE (3) WHILE NOT B DO BEGIN TF” 10460220 7 0046 le 
A_THEN re a Ot ee 10460 30 rT 005 B 
TEMP(8]* C ELSE TEMPLEJ* OF Be TRUE ENDS | 10460240 7 0052 |® 
Ae TRUE? Be FALSES | "40460250 7 0058 e 
FOR Ce "AB" MOD "A" WHILE (A ORB) OR BOO —. 10460260 7 0059 | bi 
1@ 
Ea BS a a nn a Ne A I a re Et ce OOO S PON Tn UOT. a4 
TEMPL9) © © x 10 + FIVE (3) ENDS | 10460280 T 0064 1@ 
FOR c* "AB" Diy 11 WHILE A IMP 6 DO BEGIN Se 10460290 > 0069 : 


po FOR Gt rye STEP i TES 10460300 


- 1938 DO Ge Gs TEMPC1036 C+Gs Ae TRUE ENDS 10460310 rt 0072 1@ 
FILL ANSC*] WITH OCTels OCT?» UCT3» UCT, ——— 0460300 7+ OOS 
START OF SEGMENT xt atawetne 117 ag 
OCTS» ~- OCTZ000000000000021» 10460339 tT 0083 1@ 
| | | ‘ 


NEXT SEG 116 


CVN # 105 gir fi tees ie 10460360 t 0083 


10460370 T 0084 


PNO ¢ 46 3 


’ ; 47 e 
VERIFY 10460380 T 0084 
fs 5 . os i. a = : : ” ee 
END} | 3 ore 7 | 10460390 7 0084 sae 1@ 
116 +S 89 LONG, NEXT SEG 10 5 
«| @ 


0174 


PRCCEDURE PATS COMMENT THE FOR SUATENEND oe STEP WHILE ELEMENTS 10470010 T 


10470020 T 0474 


_s 


e 
@| START OF SEGMENT set aekeeee 118 
1 BOOLEAN AsBS _— 10470040 Tt 0000 
° INTEGER O» G3 10470050 0000 
i 
eo); INTEGER PROCEDURE SIXCFSW)3 10470060 + 0000 
INTEGER FSW) —— 10470070 t 0000 
® 9 BEGIN SIX¢ CFSW +2)x FSW EnD3 ee 10470080 0000 
@ i Ee 6.53 Fe 35 Ce 7,53 UY 2732 3 Ae TRUES Be FALSEs 10470090 T 0004 
12 
Ge3s "40470400 T 0009 
a TEMPLiJ* 15 5 TEMP Cele 5; ee oe 10470410 0010 
oe: FOR C# 3 STEP 1 wHILE A UR 8B DO BEGIN Ge Gal 3 10470120 7 0013 
e 
i Ae BOULEAN(G,(4621))3 a ee ee 104701430 T 0019 
TEMPE3]¢ C ENOD3 ae TRUES Ge Q3 etek tases at 0470340 T 0020 
@ g FOR Ce FE STEP*— WHILE «a AND B UR A DO BKEGIA 1047015u 1 Oya? 
é : GG + ENTIER CCE = F)+e)3 eer re {04701760 7 0032 
- : At BOOLEAN (G.C45t1]4+1)4 TEMPC4J*C + DeC45:2) ENCE Ge Ss 10470370 + 0035 
20-1 ACTALES 1co47017> + ocd4e 
FOR ce TEMPCY) + TeMPC2l STEP TEMPC2] WHIte A IMP g EQV g pO 10470180 + 0043 
. BEGIN Gt G + | SIXCZ)$ A® BOOLEAN (G6L4321])3 _ 16470496 7 0052 
r . TEMPLSJ© Gt TEMPCL] Env, lo47020c r O¢55 
FUR Ce SIX C3) * 0.£45:3] STEP SIX CO) WHILE vnUT A pO —_ 10470210 Tt 0058 
. : BEGIN AeTRUES eee 10470220 1 0065 
e |: TEMP(6) * C + — MOD F ENDS Ge 3 10470230 tT 0C65 
FOR ce "AB" MOD “a™ STEP "A" WHILE Ca OR B) OR BDO 10470240 7 0069 
° BEGIN . | este, 10470245 0074 
er Ge G + SIX (0) + 10470250 tT 0074 
Pt CMA" MOD 9) 5 Ae BOOLEAN (Gel4301])5 Ae NOT AS ~-: 10470260 7 0076 
ae TEMPE71® C MOD 100 ENDS Rea Se De 10470270 7 0079 
e FILL ANS C#J WITH OCTI7* UCTS» OCT4s 10470280 Tt 0084 
e att | START OF SEGMENT «tutatenne 119 
eh _gGTZ2000009000000007 + 10470290 + 008s 
@ OCT27» ACTIOLOOONOVAVOO244» OCT223 10470300 T 0085 
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2 S, 3 


119 78 7 LONG, NEXT SEG 118 ® 
CVN© 73 eee 10470310 T 00BS 1 
i@ 
PNO® 473 | Betts Aaa Sie ey eae ee 0470320 0086 3 
4 
VERIFY 10470330 7 0087 |@ 
6 
ENDS ae 10470340 1 0087 ? 
: | 3|@ 
ee eae eee eae 8 +5 9 ONGs NEXT SEG 10 9 
10) 
PROCEQURE P48; COMMENT FOR STATEMENT CONTROL VARIABLE GO TO 10480010 7 0474 ne 
“CONSTRUCTS 7 | 3 7 10480020 7. 0474 ‘e 
nee : uw : : pi 4 n : 8 
seuew Gy : Soe H4R0030 0 15) 
16 
LABEL PNT1* PNTZ*PNT3+ FNT4s PNTS3 — 10480040 7 0174 hg 
18) 
) START OF SEGMENT a*4*utaeew 120 ‘e 
: : , 20 
NTEGER De He 3 ee 10480045 tT 0000 24 
2: 
REAL CoEoFsG3 10480050 tT 0000 24 @ 
24 
p ~ BCOLEAN As} ee 10480060 T 0000 | ‘0 
Os ; ; 26 
: INTEGER PROCEDURE EIGHT CFGT) 3 10480070 YT 0000 2 
DB 28 
e | @ 


INTEGER FGT3 10480080 T 0000 


BEGIN EIGHT+ FGTe (4533) END? 10480090 T “le 
ge 15,53 Fe 7,53 Ce2,03 Ae THUES Be FaLSES pe 27327 Ge (. e 10480;00 fT 1 
TEMPLiJ© 153 TEMPL2]© 33 He 43 ye 103 10480110 Tt 0009 33@ 
“FER Ce TEMPL2] STEP 2 UNTIL TEMPI1) DO BEGIN Ce CeTEMPII]3~ ~~ " Tpagoie0 7 001g le 
bc Go TO PNTI ENDS GeG+l > TEMP([GIe 5; “non Shin 10480330 7 0021 : 
PATL? GeG+l3 TEMPLGI]© C3 10480140 t 0029 \@ 
FOR Ce FeE STEP RM UNTIL J DO BEGIN He Hels Je yet 10480150 7 0033 le 
If H 2 6 THEN 60 .TO PNT2 ENDS GeGe1s TEMPEG]e 63 10480;,60 t 0040 ; Z 
PaT2s GeG +15 TEMP(GI]« C3 10480170 T 0045 18 
,— FOR Ce EIGHTCTEMPEII+TEMPL2]) STEP F WHILE A OR & DO BEGIN ~ 40480480 7 0049 le 
| ib ee ie ree pees 10480190 7 0058 Z 
. C214THEN GO TO PNT3 ENDS 10480200 7 0059 1@ 
: | OPRT3Y: Ge G41 TEMPLGITe Cs Re ae | — 10480210 7 0061 | le 
Ws. _FOR Ce £41213) MHILE A OR BDO BEGIN He Hels If H>6 THEN 10480220 7 0065 9 
@ °e 
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co un DW MOM F WH = 


PROCEUURE P503 COMMENT VALUE ASSIGNMENT = PROCEDURE CALLED BY Value 


PATS? Ge Gt1s TEMPCECG]* C+Hs 
FoR Ce 2 STEE 1 UNTIL 5 DO FOR Ce C+5 STEP 1 UNTIL 15 DO BEGIN 
IF C213 THEN GO TO PNTS END 3 __ 
PATD$ GeG+ls TEMPEGIe Cc 3 
FILL ANSC*] WITH OCT17» OCT3» OCT22» OCTies 
START 0 
UsT1014000000000234 OCT16* UCT193 
421 98 
CVNG© 75 
P\Q¢ 483 
‘VERIFY <3 oe ee 
ENDS tae 
120 18 


EK 18 NOV 623 
REGIN 


INTEGER KLeX2ex3eXqexXse Nadel 


10480240 
10480250 
10480270 
10480280 
10480290 
SEGMEN 


10480300 


Yt 0072 
rT 0075 
T9061 
rT OCBS 
T 0089 - 


“kk kek 


T 0090 


7 tQNG, NEXT. SEG 


04803140 
10480320 
10480330 


104680349 


0090 
T O09] 
T O092 
QO9 


97 LONG, NEXT SEG 


10800010 
Q500020 
10500030 


10500040 


START OF SEGMENT 


ARRAY ACli3]se BL1:3]3 


BOOLEAN T3 


* oa 'y * 
pi fs a i 


AsX39 NB 


NIEGER PRUGEOLRE FUN 
ARRAY ALLI3 . 


INTEGER X3aN53 
BEGIN 


FUNC © CALLIOX3)xN 


ND3 


PROCEDURE VASSIGCE PI sFReeFP3eFP4 sFPSoFPOsF PT? FPO sFPIsFPICoFP11» 
, FPLQ0FPL3eFP1GeFP 159 FP L6eFP19eFP20eFP21eFP229FP23¢FP2us 


“FP25)3 


10500050 
10500060 


e OO £0 


19500080 


10500085 ° 


10500087 
10500090 
10500400 
10500110 
10500420 


10500430. 


10500140 


T O174 

0474 
T 0174 
Tt O474 


eek N RK 


1 0000 
tT 0003 
° 

000 
T 0003 
T 0003 
T 0003 
T 


120 


10 


122 
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0 + y a Ames KS Ky 


o Own Oo Oo F WH = 


VALUE FPisFP2eFF3eFP4et-PSoFr6eF P73 &® REMOVED FPB 03"06*68 


INTEGER FPleoFP2e FP3SFP4sFPSaFP9YOFPLO>FPIisFPLloeFP13* 


Cel 10500150 T 


10500460 T 


0500465 


10500470 7 


Py PIGsFP20eFP TPoeeFPO3eFPOSpFP/ 3 
BOQLEAN FFOsFPLI49FP243 
ARRAY FPBLijs FP1I60113 


BEGIN 
LABEL FP7s INTEGER I3 


COMMENT WHEN ALGOL IMPLEMENTS GO TO NGN LOCAL LABE 


THE ORIGINAL MEANING OF THIS LABEL DECLARATION 


40500190 T 
0500200 
10500210 T 


S 10800215 T 


190500217 1 


SHOULD NE EXPLOREDe SEE NOTES.3 


2 Sa Nt Et a ee 


oe : 


FP10 ¢ FPR2;3 


10500219 T 


10500230 T 


FP11 ¢ FP3 3 


F t 43 


FP13 © FPS; 
FP14 ¢ FPO} 
GO Ta FP73 


FF7%2 FPY5 « 40953 


F J R ] ¢€ 1 * E ~ T U 7 I 3 Dp r) F = B i % 7¢ ele aS Seiad 


FPL oe 23 


FP2 ¢ 83 


FP3eFP2,(45%3)3 


FP4 « FPG x FPA 


_FPS ¢ (FP2*FP1x3)x FPL3 


0500250 


10500260 1 


10500270 7 


10500290 T 


10500310 ¥ 
10500320 T 


10500330 T 
10500340 fT 


FP6 « FALSE; 


10500360 7 


FOR fT ¢ 1 STEP 1 UNTIL 3 DO FP16(1} + FPOLI]: 
FP19 ¢ FPLS 
 FP20 ¢ FP2p 


P = Fras 


10500370 7 
10500380 T 


10500390 7 
O500500 7 


a 40500280 T 0006 


0008 
0008 
wane 
0008 
0008 
0008 
0008 


0000 
0000 
0000 


_ 10500320 T O00 U 


0001 


0003 


0004 


0005 


0006 


70500300 7 do0R” 


0014 
0014 
0015 
0016 


START OF SEGMENT wxtawetntan 


190500350 OQk 


020. 


0021 
0026 
0027 
0028 
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cont DO TO FF Ww He = 


= 


Sasso Sy 
a a SES YS & 


A} 
— 


~ : A A 
=. 35 a 


BS 


EA 


‘“:: 


ENDS 


INTEGER PROCEDURE FUNKCX4sx5)3 


INTEGER X 


FP25 « FP8C2) 


Me X53 


BEGIN. 


ENQS 


X4 @ X44e3 
XD © X5413 


FUNK © Xa# X5 


INTEG 


BEGIN 


END} 


PROCEDURE VALORD(F ie F2°F3°F49F 59 FOr FOF BOF OPFIO)S 


ER FleF2sF a sF ask Sok oF 7 oF BaF OsF 103 


6 «+ ; 
F7 «© F235 
FR ¢ F33 
FO « Fas 


FIO © FS 


aa a sibs io OR OU 200 O08 Was 


PROCEOURE CALORD (G1 »G20639G45G59G62G72G8s692G10)3 


VALUE G12622632G4sG53 


INTEGER G1* Ger G3» G4* GS G6 Gle GBe G9» Gi0; 


BEGIN 


GO ¢ Gi; 
G7? «© G23 


G8 « G33 


10500410 Tt 0029 
10500420 ry 0030 
OOO 0 O0 
10500440 7 0032 
10500450 T 0033 ' 
37_1ON XT SF 
19500460 T 0008 
10500465 T 9008 
0500470 0006 
10500480 T 0008 
10500490 fT 0010 
10500500 T 0012 
10500510 Tt Ool2 
T 0015 


10500520 


10500540 
10500550 
¢ HOS 460 


10500570 


10500580 | 


10500590 
10500600 
10500610 
10500620 
10500630 
10500640 


10500650 


10500460 


10500670 


10500680 


T 


T 
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a : CS a Ry Th = wa ~ 
: d b 5 & G 3 ~ x 


oo nwt Om TF FF WH = 


G9 « G43 
610 « G5 
END3 


XL € 43 
Xe ¢ X39 © 28 Cee 
ACiji + A ¢ AL3) + 5 
COMMENT «*&eeeeeKLUGE CARD REMOVE LATER weeeweees BI] 13 
Ne 4d 
# 13 me ee 


CALLEVASSIGCNS ALS OXI,C4SEIPFUNCCASX39N)2 CX2 +FUNCCAPX39N))xALL YP 


IF Xi>xX2 TREN TRUE ELSE FALSE» Ne As TEMPECids TEMPC2})- — 


te et TEMPC3]> TEMPC4)s TEMPCSJ»T» TEMPC7ege TEMPCAL)s 


TEMPCi2)»TEMPCISJ*TEMPCI4)sTEMPCISJ*NUT Te TEMPL17))3 


FOR I ¢ 1 STEP 1 UNTIL 3 DO TEMPLI*7) ¢ BEI); 
If J > 1 THEN GO TO TAG ELSE 2 ee 
FOR I « 1 STEP 1 UNTIL 18 DO TEMPLI+17) © TEMPLI]3 


N © 23 


X2 ¢ 43 

X3 ¢ 13 

ACiJ¢ AL2) €AC3] ¢ 63 
Je J+h3 


GO TO CALLS 


TAG? XG ¢ XD © 
CALORDCX4 4X5 pFUNKOCX4 4X5) sX441,X5x2,TEMPL35),TEMPL36),TEMP(37), 


TEMPLES)» TEMPC3995 


10500690 
10500700 
10500710 
10500720 
10500730 
0500740 
10500745 
10500750 
0500760 
10500770 
10500760 
10500790 
10500800 
1oSc0g10 
0500820 
10500830 


10500840 


10500880 


10500890 T 


190500900 T 


10500910 
10500920 


| re | 10500930 7 
VALORDC XG o x3 oF UNKUXGs X50 0 K441 » XOXO oe TEMPIUO]> TEMPL GO] Jo TEMPLGS]».CSOSOUGGO 7 O99 
10500950 T 


_ TEMP C43)» TEMPC4G])5. 
FILL ANSC®) WITH QCT2» OCTS» 


Pies 3 


OcTis OCTi2» aCTi2d» CTO» 


~4 


T 


T 


T 


7 


Sa Miah te otiee eeG 10500860 T 0084 
10500870 


0082 
0083 
0088 
0089 
0089 
0091 


0097 


0106 


1050096) 7 0108 


TART OF SEGMENT wtawauuwnn 


@ ® 
r) OCT7777>» OCT7» OCT7» OCT?» OCT2» OCT10s aCTOs» acTeds 10500971 rT 0110 e 
1 > OcTa4s OcTOs Oct?» UcTi» acTSs OCT2» OcT3*» acT3l» 10800981 T 0410 
@» 
3 OCTO»s OCT7777s OCT7» OCT?» OCT?» OCT2s OCTIOs OCTOs _ 10500991 0110 
4 
T Be UcTo» OcT4s Octo» UcT7» UcTis» OcTi» OcTS» OcTas 10501001 ry 90110 
: { 
7 QcT4s OcT3s acT2>» OCT10» OCT6» OCT63 —— 10501011 T . 0410 
e: 
: _ 24 7S _44 LONG, NEXT SEG 
10) ; 
er CVN + 443 10501020 T 0110 
12 
PND + 503 10501030 rT 0410 
@ na : : : 
5 RIFY OS01040 0 
6 
eo” 
Ds ees 0501050 0 
9 
@ iT 122 7S 118 LONG» NEXT SEG 10 
p2 PROCEDURE P51; COMMENT Call BY NaME FORMAL PaRaMETERS 4,7,3,2 ca ~ 10510010 tT 0174 
23] . 
ee NUvy 20 1962 KM} Sere uct eased pode Pease 10510020 O17 
2@- BEGIN 10510030 T 0174 
g D7). A 
& bo LABEL LAB*LABI>_ABS*LAB4S* Lie L2e_ AB» LABerLABOS 7510040 tT 0174 
20; 


i START OF SEGMENT wtakeweeen 125 


@ 
e 
e 
ry INTEGER BoCoDsEoFeGoh 3 10510050 t 0000 
LABEL SPECLABL> SPECLAB2; NNER REMOVE LATER MAY 6 19633. 10510055 fr 0000 
. BOOLEAN _LUUB3 a 10510070 t 0000 
ee ARRAY ARAE (181013 ; 10810080 T 0000 
SWITCH  SWCH*LAB3> LAB*LABI> LABZOLABGS ~ 10510090 Tt 0001 
@ 
PRO DUR 4B AR jp _ Sie 10310100 7 0008. 
@ ENTEGER C3: | : 10510110 7 0008 
: ARBAY ARYiC1] 3 —_— ~ 40510120 7 0008 
® BEGIN - 10510130 Tt 0008 
eb FOR cec STEP 1 UNTIL Co#c1oee)) pO ARYIEC] cy) “10510150 7 0008 
, ENDS = 7510155 FOOLS 
. | INTEGER PROCEOURE DEF (GHy)s ee 10510160 Tt 0017 
@ | INTEGER GHus ‘y | 10510170 y 0017 
Ps TC accra al : eres a | 49870180 7 0017 
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y zy a . a Ry TW. mS 3 3 > 
5 & & 3 oO & om & > 2 a og 


DEF ¢ GHU+ (GHU"14)3 
END: 
REAL PROCEDURE SPR FORM 
REAL STFORM3 
BEGIN 
_SPR1+ 7 MOD STFORM ; 


END; 


PROCEDURE CALL CP1,P2sP3,P4 P53 5P65P eP8,P9,PIO,PilsPidsP13eP14, 


Pi7P18)3 
INTEGER P2s PS» P6s P10» P1425 
BOOLEAN P33 
REAL PROCEDURE P14} 


OcEoU , , ; 
INTEGER PROCEDURE P93 
ARRAY Patil; 

SWITCH P73 

LABEL . PY3, pias 


REAL P43 
COMMENT 


P&8 IS PROCEDURE ABC 


Pi7 IS PROCEDURE PRA 


EU 
PROCEDURE 


Pil IS PROCEDURE SPRL 3 


BEGIN 
INTEGER Qu 
LABEL CBL1> LBL2: 


wl « 33 


Poe IF P39 THEN-CPL + 4) ELSE (Pa #205 


FUR Q ¢ P 4 =(OUN HU 


tr ei nthe tenn ne 


10510190 rt 0Q17 @ 
"40510200 7 0 1 
10510200 + ots - \e 
0210 r 00 3 
4 
10510215 tT 0021 5|@ 
6 
oo 510220 0021 ? 
10510220 7 0021 le 
0540230 0021 9 
107) 
10510240 tT 0023 |@ 
12 
10510250 7 0025 4 
: 1|@ 
=e 10540960 0025 ‘a 
16 
10510270 T 0025 |@ 
18) 
_s — 10510280 0025 19 
T e 
are rea Sere ee 0510285 0025 ai 
22 
J @ 
ae en ee 9 0025 se 24 
2! 
10510295 7 0025 Ls @ 
2 
28 
10510300 tT 0025 Je 
ares 0540310 0025 30 
31 
10510320 7, 0025 sa @ 
33 
_ 10510330 T 0025 ' 
a @ 
se ee 10510331 T 0025 | 3 
37] 
10510332 7 0025 a @ 


10310333 0 


10510334 ie 
3 
10510335 7 0025 a®@ 
a 
10510340 7 0025 - 
7] 
0510350 7 002 48 
ws ge ; 49 
START OF SEGMENT s#etetewne 126 s1 @ 
i 5] 
10510360 Tf 0vO0d F 
si @ 
are 10510370 7 0000 
eee : 5! 
10510380 t 0000 . «| @ 
@ @ 
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@ | 

e@ IF P3 THEN P3¢ FALSE ELSE P3« TRUES 10510400 T 0008 @ 
PEC4eP4)3 P5¢ P4C4]} Poe Pata} + PS 5 =" 10510410 t Oot2 

o; PA7CP3sP7sP4» LBLI)S j 0510420 0017 

® LBListP4cijde PoC P10)3 10510430 tr 0021 

. PizeP1icPiZ)s —-- 10510440 7 0023 
: OMMENT KLUG ARD REMO\ ATER “teweaenes Part] « P ; 0510 00 

@} PI8(LBL2eP4sP3)3 10510450 7 0027 

LBL2?ENDs 10510460 7. 0030 

- | 26 +S 36 LONG, NEXT SEG 

e PROCEDURE PRACBOL> SweAKYsLBL); , 10510470 tT 0025 
i ONESIES POE EAS OGOLE ANG © SAUL ee ee 10510480 T 0025 

ad SWITCH SW : 15 0490 7 00 

i LABEL LBLS 10510500 T 0025 
DS SSS RRA REN TR ee ee ee 10510510 T 0025 

° ae BEGIN LABEL LABl» LAB@oLds sss a 0510520 0025 

er START OF SEGMENT weatewewee 927 
@O TO IF BOL THEN LABi ELSE LABas | ~ 10540530 7 0000 

rk ABLE ARYC23¢5s GO TO Lis 10510540 0004 

e| LAB2? ARYC2]¢ 103 10510550 7 0007 
: Lit 60 TO LBL 10510560 + 0009 

ni ENDS sy 10810570 Tt 0010 

& 7 127 +S 15 LUNGs NEXT SEG 125 

PRACEDURE PROCLBLLARRY*BLO)> Fave —"$0510580 7 0025 

°. LABEL LBLLG | ee 10510590 7 0025 

@ |: ARRAY ARRYCAV3 10510600 t 0025 

z BOOLEAN BLOF Ran oe 90510610 T 0025 
sl: BEBIN i | _ . 10510620 7 0025 __ 

@ | LABEL Las LAB3+LAB4; 10510630 T 0025 

e sf | | = START OF SEGMENT wexwvewsew 126 
a GO 10 IF BLO THEN Lag3 ELSE Lapas 2 dbaenab. 92 

rd] LAB3! ARRYC3dJ¢ 53 GO TO Las 10510650 r 0004 
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‘ y *, a zy 5 2, 


SWCHECS J, PRA»PRO)3 10510750 y+ 0063 


LAR4: ARRYL3J¢ 103 10510600 T 00Q07 e 
tet GO TO LBLL "40510670 T 0009 ‘\e 
ENDS — it. 0310680 On10 : 
; 
128 +S 15 LONGs NEXT SeG 125 ¢ 
DEFINE Al ® (2372) #CE@1)83 ~_- 10510685 7 0025 le 
B + 235 LOUB+ TRUE; E* 5 MOD 33 Fe103 ile ation 10510690 1. 0025 ; 
COMMENT CLUGE CARD REMOVE LATERS ARAEL1)] © ARAELL) 5 | 10510700 7 0029 hed 
COMMENT CLUGE CARD REMOVE LATER+ THIS WAS INSERTED T0 Gey ARQUND 10510705 ft 0032 ‘1e 
feeeee — PRESENCE 817 FOR PROCEQURE PRA AND PRO WHICH ARE MARKED ABSENT (10810710 tr 0032. hs 
We tk et IN THE STACK FOR PREQCEVURE CALL« MAY2e 19633 10510715 + 0032 ie 
PRA(LOOBs SWCHsARAE,SPECLAB])3 COMMENT *** REMOVE MAY 6 19635 ~~ +40540720 7 0032. Mle 
SPECLABI! LOOB+TRUES PROCSPECLAB2*ARAE*LO0B)% COMMENT REMOVE OATERS  ——__ 10510725 Tt 0037 A 
SPECLAB2t COMMENT REMOVE LATER MAY 6 19633 10510727 + OUAt 1° 
GALL CATs Be L008, ARAE + CoD» SWCHAABCODEF»E,SPRioFs ~ $0530730 t O042 — ° 
| TRUE THEN Lap3 ELSE LagSs IF FALSE THEN Lagé ELSe 10510740 7 0053 | a 


a 7 G+ DEF(DEF(3)): 10510760 


53) TEMPEiJ¢Als TEmMPC2]¢Bs TEmPC3IJ+REALCLOOB C4711 )3 


10510770 ; 

FOR He 4 STEP 1 UNTIL 10 DO TEMPCH) © ARAECHIS 10510780 + 0080 4@ 

TEMPCiileCF TEMP i2yeD POLST +ARAEC2TFTEMPCLGTeARAE (133 ~~~ 70540790 FT 0086 le 
TEMPC15]¢ Fs  TEMPC16)© ARAEL319 TEMPCI7J© G3 10510800 7 0095 E 
LABS LABS LABo? LAB 33 LABa?: 10510805 Tf 01014 i 

LAB6? ~ LABST ie. | TOS TOG0G FT 0502 te 
FILL ANS £*) WITH  0671010000000000144, ocTaS+ ocTO, 10510810 7 0402 : 

START OF SEGMENT +teeeeeeee 129 |W] 

OCT4SsOCTS» OCIS» OCT?» OCTIOy OcTils GCTias 10510620 7 Ojo7 e 
OCTHsOCTI0*# OCTy2» OCT3» OCT7*OCT12» OCT14i 10510830 7 0403 , : i 

129 +S 17 LONG» NEXT SEG 125 1@ 

CVN © 17a oe a : ie 10510850 7 0103 . He 
QUE ROSE be ke ee 10510860 t 0304 | ) 


VERIFY | 10510870 T 0405 


Data Documents/inc. 


ay a . r z 55 53 
> 6 os 2 & m S 5 & 
fe 


EKO : 10510880 T 0105 @ 

' 125 75 112 LONG, NEXT SEG 10 
PROCEDURE P52; COMMENT THE REAO STATEMENT IN EXTENDED ALGOLS 0520010 T 0474 
BEGIN 10520020 T 0174 
FORMAT OUT READWRITE ( X10, "THE READ STATEMENT OF ALGOLWs 10520030 7 0474 

; START GF SEGMENT a#etunrntan 0 

@: START @F SEGMENT e&aeeeewaw 131 
wwWITH ALL ITS VARIOUS CONSTRUCTS OF"), 10530040 t 0000 
i SECONDLINE (X10» "REAQe SPaCks ETC HAS BEEN WRITTEN aS a SPECI" 0520050 1 0000 
» "AL ROUTINE BY JOHN SKELTONe"), 10520060 T 0000 
" PERG INE (X10 "TO TEST THESE ALGOL CONSTRUCTS THe 170"-%1 ~~ + +~+~+40520070 T 0000 
pe "PACKAGE IS TO BE USED"); 10520080 0000 

b 131 +S 48 LONG, NEXT SEG 430 

: FORMAT OUT FIRSTLINE (Xi0*"TEST PROCEDURE NO. 052 4,8" ~~ 40520090 T 0000 

p STA MENT «eawatedee 32 

".203 EXTENDED ALGOL READ STATEMENT") 10520400 T 0000 


| 132 75 16 LONG» NEXT SEG 130 
WRITE CFNOKLOBLIJsFIRSTLINE)3 190520110 7 0000 


WRITE (FNOKCOBLI]»READWRITE)S 10520120 T 0003 
WRITE CFNOKUDBLJ »SECONDLINE D3 10520130 7 0006 
WRITE CFNOKCOBLIsTHIROLINE)3 10520140 7. 0009 
ENDS 10520150 T 0012 


: . 130 7S 13 LONGs NEXT SEG 10. 
PROCEDURE P53 COMMENT THE WRITE STATEMENT IN EXTENDED ALGOL3 10530010 7 0474 
BEGIN 10530020 T 0474 


FORMAT OUT FIRSTONECX10s "TEST PROCEDURE NOe 053 48", 10330030 7. O174 


eee START @F SEGMENT a#eteseeen 133 
START OF SEGMENT weutewarawe 134 


f 3,3 EXTENDED ALGOL WRITE STATEMENT")» 0550040 7 0000 
et WRITENOTE (XjOe"THE WRITE STATEMENT OF ALGOL WITH", - | 0530080 1 0000. 
" ALL ITS VaRIQUS CONSTRUCTS OF")>, 190530060 fT 0000 


WRITETWOCX10» "WRITESSPACESETCe HAS BEEN WRITTEN» 10530070 +t 0000 e 
"AS A SPECIAL ROUTINE BY JOHN SKELTON."), ~+'40830080 7 0000 \e 
: WRITELAST(X10¢"TO TEST THESE ALGOL CONSTRUCTS THE"»  —=_—4.0530090 7 0000 3 
" I/O PACKAGE IS TO BE USED"); 10530100 7 0000 1 
| | —_— 134 7S 63 LONG» NEXT SEG 133 | le 
° WRITECFNOK{DBLJ*+FIRSTONEDS 10530110 tT 0000 ; 
h WRITECFNOK(OBLIJ*WRITENUTE)3 10530120 t 0003 1@ 
rm WRITECFNOKTOBL J*WRITETWOD) | 10530330 7 0006 te 
of WRITECFNOK (DBL /WRITELAST) 0 See ent 10330140 1 0009 . 
ENDS 10530450 T 0012 ar 
| mas | TRE GETS LONG, NEXT SEG 10 le 
: PROCEDURE P55} COMMENT FILL STATEMENT EK —s-42 NOV 623. Sst yur A 
BEGIN 10550020 7 0474 1° 
INTEGER ARRAY INTC 482] ; "19550030 T 0174 He 
START OF SEGMENT anxtudewee 135 2 


ert ne 


ARRAY As Bs Os RE1Ls2)e5 CLAS)» MATRIX(1835133]3 10550040 7 0001 


0008 


INTEGER Ie ws V3 10550050 T 
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i a a a. es a, Sn ee 
& > & os ® & os 


STREAM PROCEDURE FLAGCHK (DUMis DUM2* DUM3)3 a 10550160 T 0008 
BEGIN 10550170 7 0008 3 @ 
36) 
ST*DUML3 ose ao 10550;80 ~ 0009 3 e 
La 


Dle*DUM33 190550190. 7 00909 


Dle DI+7;5 10550200 T 0Q09 


10550235 tT 0011” 


10550236 fT 0012 51 

10550237 rt 0013 ar 

7 1Oss0gd0 7 001s | e 
10550241 7 0019 : 

START OF SEGMENT etataknene 136 @ e 


136 7S 2 LONG, NEXT SEG 135 @ 


FILL AC*] WITH 4.3863» 7.88563 10550240 1 0016 


_START OF SEGMENT metiae 137 


137 +8 2 LONG, NEXT SEG 135 


FILL Bl*)] WITH “EDW" os" KERN; 10550243 7 0018 


ono ~ m7 FT FF WH = 


LAR a MEN cee hake wk 8 


ik 138 7S 2 LONG, NExT SEG 135 


‘ FILL CE*) WITH 1.05 "TWO", O,3@lo000) 10550244 7 0020 
‘ 62 START @ MENT atetenetan 
. 139 1S 5 LONG, NEXT SEG 1435 
al PILE MATRIXE DS *IWITH | OSDIAN 90,05 °° °° ~~ ~4$@550245 7 Odse 
i | *. ae START OF SEGMENT wenwatetoe 140 
i 140 18 3 LONGs NEXT SEG 135 
: ~ FILL MATRIX(2s*) WITH O» "GON*,03})  ~“¥9§80a86 T 0024 
wi | a ee START OF SEGMENT s#aeeeween 144 
: | 141 7S 3 LONG, NExT SEG 135 
FILL MATRIXC3*")] WITH OF 09"AL%; ~ 10550247 T 0027 


START OF SEGMENT atatewatne 14 
142 7S 3 LONG, NEXT SEG 4135 
FILL DC*) WITH OCT777s5 1113 ee eo 10550248 7 0029 
| | __ START OF SEGMENT wevtetawen 43 
143 7S 2 LONG, NEXT SEG 135 
PILE RE MT WITH OCTQOOOC0COCOOOOOO ys OcTr77777777777777735,————— 10550249 7 0034 


START OF SEGMENT aeetetewwe 144° 


144 7S 2 LONG, NEXT SEG 135 


VeOs | . . 10550250 fT 0033 
FLAGCHKCREII»RE2Z) 05 | 9550251 7 0033 
TEMPC23]¢ REIS 10550260 T 0036 
‘ TEMPC2a) © Reals ae os 0850270 T. 0039 
a FMPE25) © V3” ey ste, ey oo 0550280 7 004 


* * * G * 5 : 55 3 


TEMPE1] © INTELI3 10550290 T duaa 


o lf Oa SY DH TF FF WN 


= = 
yn 


SB ESSERE SEESEBESRBEEER 


: 7 Data Documents/Inc. 
a ee ee ee ee ee ee ee ee ee a 2 a 2 2 2 ae | 


(iS 3 


TEMP(C2) + INT [2)3 
TEMPC3) © ALIN; 
TEMPE4) ¢ Al2)3 
TEMPC5) « BL1)5 


TEMPLOJ « BL213 — 


FOR I¢1 STEP 4 UNTIL 5 OO TEMPCI+6) © CLIJs 


TEMPC12) «+ Of133 
TENPL13]*0(2)3 


OR J ¢ 1 STEP 1 UNTIL 3 DO TEMPCJ413) © MATRIX[19v) 


FOR J ¢ 1 STEP 1 UNTIL 3 DO TEMPLY+16) © MATRIXC20yI3 


FOR J « 1- STEP 2 UNTIL 3 DO TEMPEJ419) © MATRIX€3eg]3 | 
FILL ANSC*)] WITH OCT77777777777779 OCTROO7?I7I7777777777» 


START OF SEGMENT atakeeweee 945 
OE Tey OCT722471745413117» OCTe277 47624362477» OCT252466 ~~  +10550g20 tT 009, 
_ | OCT422530» OCTis OC1T636646, OCT3s OCTO, OCTO, OCT777,  __ 10550430 7 0094 
OCT1L57s» OCT243121» ACTOs» OCTO» OCTO» OCT274645» OCTOs 10550420 tT 0094 
OCTO» OcTO» OcTa143» OcTis» UcT3ar7777 77777777775 Octed? — 40550450 TF 0094 
pA 8 25 LONG, NEXT SEG 135 
CVN © 253 10550460 T 0094 
PNO « 553 a 550470 T 0095” 
VERIFY 10550480 0095 
ENDS 10550490 tT 0095 
135 7S 102 LONG, NEXT SEG “107 
PROCEDURE P5S73 COMMENT TYPE DECLARTION OWNS 10570010 t 0474 
BEGIN 10570020 T 0474 
N R INDEX» ¥ N ; Gafyoaso FUL 
START OF SEGMENT weatwteeae 146 
TIME*#13 INDEX © 13 10570040 rt 0000 
ANITIACS BEGIN = 10570050 7 0001 
OWN REAL FLOATONESFLOATHOS. 10870060 7 0002 
START OF SEGMENT atatkwetee 147 


10550300 7 0045 
10550310 7 0046 


10550320 0050 


10550330 T 0053 


10550340 T 0055 
10550350 0058 


10550360 T 0064 


oe 10550370 T 0066 


10550390 rf 0076 


19550400 r 0084 
10550410 T 0092 


OWN BOULEAN TRUUsFALSS; 


10570070 


0000 
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= Sg 


OWN INTEGER ONEsTWO*THREES - 10570080 tT 0000 


QWN ALPHA ALPHs BETAS 10570090 0000 
If TIME =1 THEN 19570110 7 0000 


BEGIN 10570120 t 0000 
FLOATONES5S TIME*TIME+]3 . 


oon DO HF BF WN = 


10570130 T 0004 


qu — TRUU © TRUES 10570140 T 0003 


ONE « 13 10570150 7 0004 

fs ALPH ¢ "ABC" 10570160 0004 
ENDS 10570170 T 0005 

TEMPLINDEX) © FLOATONES INDEX © INDEX + 13 ee 10570180 T 0005 


TEMPLINDEX) ¢ REAL CTRUYI3 10570190 Tt 0008 


~ ~ 3 » 
wo N= Go © 2 yw D 


TEMPCINDEX + 1) ¢ ONES 10570200 T QO010 


TEMPLINDEX * 2] © ALPH3 INDEX © INDEX 43 7 10570210 Tt Ool2 


p27) ND3 sotnaiitass Sea dee neal! 410570230 r 0015 
147 7S 18 LONG, NExT SEG 146 
s 7 BEGIN 10570235 1 0003 


OWN REAL FLOATONE*TRUU*ONE* ALPH 3 10570240 Tt 90903 


START OF SEGMENT «tet ekawwe 149 
FLOATONE « 1.403 10570250 7 0000 


TRuu + 22 3 10570260 7 0000 


ONE ¢« 243 10570270 tT 0004 
: ALPH © 29 10570280 Tt OQ02 
- NDS hoe = =: O8 70290 000 


148 1S 5 LONG, NEXT SEG 146 


IF TIME@e THEN BEGIN TIMESTIME +13 GO TO INITIAL ENO; 10570300 7 0004 


FILL ANSC®) WITH DCTS» UCTL» OcTi» OCT212223» 10570310 7 0007 


START OF SEGMENT wewtatawae 149 


OcThs UCT{» OcTis UCTeiaeasi 10570320 7 0008 
49 S86 LONG, NEXT SEG 46 _ 


10570330 Tt 0008 


CVN «© 6% PNO ¢ 57 § VERIFY 
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% 3, ‘ 5 ; - 


wo o ~ a on & Wh = 


Th RN Ry 


ENDs 


PROCEDURE POOsSCOMMENT 5.26303 TYPE ARRAY »HARRY» NOV 
BEGIN 


ARRAY ONEsTWOLLS10)3 


REAL ARRAY THREEsFOURPFIVEsSIXC1852208)3 
INTEGER ARRAY SEVENsEIGHTE LES J»NINECL3993 
BOOLEAN ARRAY ELEVEN( 121023) ; 
ALPHA ARRAY TWELVEL121013 


INTEGER IeNs BOOLEAN Be BOL; 


~ 146 19 


10570340 


T 


0010 


143 LONG, NEXT SEG 10 


10600010 
10600020 
10600030 


START @F SEGMENT 


1e4s NeiSs Be TRUESBOL © FALSE 3 Be eS a 
BEGIN COMMENT DYNAMICS 


g 


OWN REAL ARRAY Rit I=3tweS)}3 


CWN INTEGER ARRAY [1 C 8 IX N JS 


OWN BOOLEAN ARRAY 61 CitIF B THEN I*#N ELSE Nw9 43 


OWN ALPHA ARRAY AlsA2eA3C1310) 


ONECL] ¢ 13 


eee eee THREETD eT Dyaiet tik Bota, ivtuas she wh Salat 


SEVENCI41) * NINECI+4)¢EIGHTCN#3x]] © 23 
FOR I « 4 STEP 4 UNTIL 1024 DO 
TWELVELLJ© "HARRY"; 


I « 43 RIC1) © Rt £18) © 11L4) © L160) © 13 


i. eee 


ELEVEN C1] ¢« BG 


Bici9je TRUES 


A1C1) + "RARRY"; 
TEMPECiJ* ONECI2s 
TEMPC2)¢ THREECIo1V3 


TEMPC4)© REALCELEVENES 23. 


TEMPC3)¢© TWELVEC1I)3 


10600040 
10600050 

06000690 
10600070 
16600080 

0600090 
10600100 
10600110 


10600120 
10600130 


10600440 


10600160 


10600480 
10600190 
10600200 
10600210 
10600220 
10600230 
10600231 


TEMPLS1© SEVENCI41 95 a ee 


10600232 
10600233 
10600234 
10600235 


10600470, 


0174 
T O174 
+ O174 
wtetntete 50 
T 0002 
tr 0004 
0008 
T 0010 
yr O012 
00 
T 0015 
T OO15 | 
ee. 51 
T 0005 
T OO100; © 
y OoO17 
T 0020 
T O022 
3 0025 
T 0034 
Yr 00 
T0038 
y 0045 
rt 0047 
tT 0049 
T 0051 
7. 0055 
1 0058. 
T 0061 
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* B a . B g a A 
oa > op : © g 2 = 


oem NY Om OM F&F WwW HY = 


ss 3 = aS 3 Ry 
oS © wa & Gg 


TEMPE J@REAL CBEE199)S 


TEMPCO)+¢ R1iC18)3 


TEMPCBICAILL1I3 


FILL ANSC*) WITH OCT1» UCT4» OcT2» OCTis» 0673021515170,» 


CVN ¢ 6) PNO + 604 VERIFY 


10600236 T 0063 


10600237 Tt 0066 
0600238 0068 


10600240 T OO074 
START OF SEGMENT waaeateeee 152 
O60U250 007 


152 7S 8 LONG» NEXT SEG 154 


10600260 tT 0072 


INTEGER Ipde Kk} 


END END} 0600970 7T. O00 
151 1S 80 LONG, NEXT SEG 150 
— “150 78 23 LONG» NEXT SEG 10 
PROCEDURE POLSCOMMENT BOUND PATR LIST S06 10020 T0175 
BEGIN 10610020 T 0474 


~~ 40610030 T 0174 


START OF SEGMENT ipeeanweus 153 


ARRAY BOUNDCIzt2 I] »MINUSE@™L08 "yO »MONUSS 7152"10)> 10610050 T 0000 


SPLITCRLSti4)eLIMIT£C2%1023)3 
1 ¢ 13 J#6 3Ke 63 
BEGIN 


ARRAY DYNAMICCISQI-EXPCIPLSJ»UPPERE StItv» 


DIMIL Lf 1+lodtuttektkKeleltieitl 13 
“BOUNDEL) #LIMINUS[@10)¢ 403 MONUS [e43]e 433 


10610060 T oo10 


10610065 7 0013 
10610070 7 0015 


10610080 T 0015 
START OF SEGMENT weetkuwwtew 154 


__ 10610090 7 0014 


10610400 T 025 


SPLITC t1J¢ 11% LIMITE 1023]¢ 243 


10610310 7 0034 


TEMPLE 1) ¢ 43 TEMPC2) * 105 TEMPC3) C135 TEMPC4J©« 113 10610320 7 0034 


“TEMP ESI© 24 , 
TEMPLO]© DYNAMIC[6J]¢ 63 
TEMPE7J¢ EXPC15] © 15) 
TEMPE8) ¢ UPPERCT] © 73 
TENPTOT AL DUE TEEEEYOO ESLER 


10610430 7 0041 
10610440 


0043 


—~ 


10640150 0046 


10610460 


10610170 T 0053 


END ; 10610180 T 0061 e 
5G 7S) 665 LONG, NEXT SEG 153 le 
: 2 
FILL ANSC*) WITH OCTie OCTi2s OCTi5* OCTiI3*» OCT3IOr ~ 10610490 0016 3 
4 
START OF SEGMENT w#teweeenee 155 |@ 
6 
“OcTés UCTy?» OCT?» OCT4253 ee 10610200 tT 0017... | — Ple 
8 
be rt ee é . “ 2 
155 7S 9 LONG» NEXT SEG 153 , 
1@ 
Nae a H \ O 3 ‘ AA e oFa) N2 
ONGE SS” ees ie | 10610220 7 0019 | @ 
: : ¥ = e : : italien Sekai rs elon hg be a cc “b “ta: laps patacaloma 15 
153 1S 28 LONG, NEXT SEG 10 a 
17, 
PROCEDURE P4623 COMMENT SwITCH VECLARATION EK  NUV 26 623 en ee eee 10620010 t 0174 18 
; " : 19) 
BEGIN, | 10620020 7 0174 24 @ 
< ; yal 
INTEGER Xie X2* X3s Xdo X53 7 i ae 10620030 T 0474 “le 
a 
a ae _ START OF SEGMENT weewewewae 156 24 
ca ia 
LABEL LiskerL3oL4 sl Sol Sol 7 sLaoL Ooh OobilohLi2slLidslLli,tLr_e, iii, loS20040 r O000 3 @ 


LU4sLLS»sLABslLABys 10620050 T 0000 


10620055 0000 


SWITCH 32 FURWARDS 


RS SsEeERSeRESE 
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y “ vy 5 ry 


SWITCH Si CLA oLD LL sb LOL sL2oL2L2rL2eL2rLFeL3rL Io FeLFpbGoL dy 10620060 fr 0000 


CS 


h eLaeCGsL5-C Sel Sol Sel Solr X1=X2 THEN LO ELSE L?> 10620070 Tt 0002 e 
3 
OoL_GrLOsi7ollas eL7eS26K142)]9S263191 Bo L891 Be, 891 Be 0670080 0058 a 
a LIL PALO LI eh Fo Gr LAG oL1OsL 10s 10sS2e4)eS2c4)oL iis . 10620090 T 0086 1@ 
RUVISCCIESTISSFIBUITELTSTITSCIBLITSETIETY 10620;00 + Ojie le 
. SWITCH S2 ¢ LLirLbarLbsrbbarSi(xaxi3eid3 : 10620110 T 0168 Hl 
oes | Xb ete : rr : | | 10620420 T 0168 4e 
X3 + 33 10620140 T 0490 ‘ 
y 3 i ee ee eer 7 | 10620150 7 0190 | =| @ 
at | Se ae 49650155 7 0101 le 
; gO To $1c1)3 10620460 y+ 0492 i 
M aren } | 10620570 7 0194. 1@ 
T a3 10620;80 7 0196 ee 
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@ @ \® 
e@ X1 © X1+43 10620190 7 0198 @ 
‘“ ‘ TEMP(2] © TEMPL1]+43 "40620200 7 0199 
; 
3 5 TO x J 
S$ 3 aD a RT 106 OQ 0 
e LAB? GO TO S1[6]3 10620220 tT 0204 
‘ Las TEMES ¢ 33 "90620230 T 0207 
9 T X3™ 5 : 
ho DS 3X24x9] a a 062024 Q208 
4 3: MPCA 43 ‘ 
@ 7 L TEMPL4J «© 45 10620250 7 0211 
‘ i GO TO Sic23l3 | 7 10620260 T Oag3 
5 LSt TEMPLS5] « 53 10620970 T 0235 
16) 
@ Y GO To $1£1643 10620280 tT 0217 
9 L4s: TEMPLO] « 63 = 10620290 T 0219 
@ Po 
r c/a Bla Oe cb) 2s ee eee a ve ne PT eee een ac - Reta tataed 0620300 OZ 
e : Lot TEMPL7] ¢« 73 10620310 tT 0223 
t, eye x 1 rs x 1 a 1 3 Cae wae ae OK ES eMC I Pog Peg boy My Ve SAM Sp og. t, © : 
oe: 10620320 T 0225 
27 30 To Sit26)3 - 10620330 tT 0227 
en. L7: TEMP(8]*8;3 10620340 T 0229 
e| GO TO Sit34J3 | 10620350 T 0230 
, LL3% TEMPL9] « 93 se _ 10620360 T 0232 
@ | IF K1> 1 THEN GU TO LABL3 10620370 tT 0234 
. i Xt © Xi4+43 ; ai 10620380 Tf 0236 
: EMPC10) ¢ TEMPL9) 413 10620390 0237 
@ GO TO $10355)73 10620400 T 0240 
Pa LABI# 60 TO S1t370i ee 10620410 T Oda 
L8t GO TO S1t42)3 | _ 0620420 7 0245 
& , L9: TEMPC11) «+ 113 10620430 T 0247 
° ; Go To Sic4eq3 | 10620440 Tt 0248 
L10# GO TO $15133 . 10620450 7 0250 _ 
@; LL4: TEMPL12) «© 123 10620460 T 0253 
° ae | GO To S2ersJ3 OO 10620470 t 0254 
ey ee 112 TEMP{13] © 1433 . ee 10620480. 0256 
e@ GU TO 5149943 10620490 T Oe 
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0 4, 4 a n A s. = x x 3 


o eons DB FTF FF WH = 


2 : 


Lig? Gu Tu S41 [ea]; 10620500 tT 0260 
SETAE TEMPCDAD TAR OT ODED 

13 23 Pee eats 06205 Q 6 

FILL Ans Cx] WITH UCTL» OCy2s GCT3» UCT4s UCTS» OCTOy, CCT7, 10620520 y+ 0265 


ee ee START OF SEGMENT 


OCTIOs QCTILs CCTi2» OCTI3,» OCTI4» OCT15» GCT163 10620530 


ee KKREES 


1 0266 


157 +S 14 LONG» NEXT SEG 


CVN © 143 ae 3 . 20620540 T 0266 
PNO © 623 _ ' | ee 0620550 7 0767 
VERIFY 10620560 T 02768 
ENDS i i iii 10620570 T 0268 
| | Mae, Babee: 456 18 275 LONG, NEXT SEG 
PRCCEVURE P6353 CUMMENT SwiTCH LIsy EXPRESSION EVALUATION? 56344 CCZ3 10630910 7 0174 
EEE TEEN Rg —— —— 10630020 7 0474 
Ree ates LABEL Lis Lee L3r Lae 53 ee eee 0630030 O17 
START OF SEGMENT wee teh kis 
ES me ENE BERD es = ae ere ge eR ange egw a nr 10630040 T 0000 
SWITCH SWielF 1151 THen bd eEbSe IF 1152 THEN be cbSe Ip yi=3 10630050 T 0000 
THEN L3 ELSE Las 10630060 7 0009 
SS ee ET ENTEGER PROCEDURE CL ge te tt tr rn ge = 10630070 T O07 
INTEGER 143 3 10630080 T 0017 
BEGIN FelieTewmPClideli*1 ENDS 10630090 7 0017 
10630100 tT 0023 
W ToH Swe FORWARD: | | 10630310 00 
SWITCH SW2¢L5>SW2LFCI1)J» SW2CFCI1)]3 10630120 7 0023 
yie2s GO TO SWatiiis St TEeMPrileqiess 10630130 T 0037 
FOR t1e1 STEP 3 UNTIL 3 DO 10630340 T 0043 
BEGIN GO TO Swifils 10630150 r Oo44 
OULE BEGIN TEMPC3I+117 GO TO L4 END a 10630160 tT 0046 
Las BEGIN TEMPLaje11s GO TO La ENDS 2 | 10630170 7 0048 
L3: TEMPESIeq13 10630180 T 0051 


157 


156 


158 
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@ 
ry La: ENDS 10630190 T 0053 e 
1 FILL ANSC*) WITH 2etele2> 33 i ie 10630200 tT 0056 
@ Grae etter S AR n MEN gk tnt tk 
e 159 7S 5 LONG» NEXT SEG 158 
‘ CVNES3 —— 10630210 7 0058 
i PNO+633 eae ee NE eee ee 0630220 0058 
oe; VERIFY 10630230 r 0059 
: ENDS | "40630240 T 0059 
Ns 58 1S 65 LONG, NEXT SEG 0 
<r PROCEDURE P64} COMMENT 50395 SWITCH SCOPE» Ce ZETHRAEUS» 14/23/62 3 10640010 T 0474 
~ «BEGIN LABEL Liv L2, 033 INTEGER Ii, I2, 135 BOOLEAN B1d 10640020 7+ 0474 
START OF SEGMENT wketetstede 160 
SWITCH SW1 © Lis Las Lae 10640030 T 0000 
SwITCH SW2 ¢ SWiCTiJ» IF B81 THEN SWitla) ELSE Swicl3]s 9 ~~ ~-*7[96adoaa 7 0004 
Se ged aes re nh cates ne es Bn 0640045 0020 
Ii ¢€ 13 12 « 25 13 ¢ 33 BL © TRUES 106409050 T 0020 
BEGIN INTEGER Ils I25 133 BOOLEAN B13 10640060 7 0023. 


START QF SEGMENT «#atetawen 164 


li ¢ 23 12 ¢ 35 13 © 14 Bl © FALSE; 1064007G T 0000 

GO TO Swati); | 40640080 7 0003 

GO TO 133 | coe 00000000 7 0005 
ENO; 10640090 -t 0007 


364 8 B LONG» NEXT SEG 160 


pit TEMPCi)] ¢ 44 GO TO Las 10640400 0024 


L2! TEMPL1] «+ 25 GO TO La; 10640110 tT 0026 
L33 -TEMPCL} #34 10640120 7 0029 
“Lat FILL ANSC*) WITH OCT2s . a - 10640330 7 003 


START BF SEGMENT weetakatee 962 


162 7S 1 LONG, NEXT SEG 160 
a | | CVN © 15 PNU 6. 643 VERIFYS 2” | | 10640140 7 0033. 


Eats 106401,50 T 0035 
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o ont DW TH F WH = 


TS 


So Re Ss yt Ty fF] S. 


ee A ee A ee ee oe 
oS & & o Gg 


CeEYTER TEES 


PROCEDURE P6635 CUMMENT Caael CECCaARaTION € 17 
BEGIN 


INTEGER Xlsolo Ys 


LABEL: bdeLeetaebASToL Al» LAZeL B43 


SWITCH SW1 € LéAleLA23 


JAN 633 


16uU +S 


43 LONGe NEXT SEG 


16660010 
0660620 


10660030 


START OF SEGMENT 


PROCEDURE PICFP1); 
INTEGER FP41s 
BEGIN 


LABEL LLiseloles 


tepid ttresntanen  r  n neeneeene 


INTEGER PQRS 
PQREeCs. 

Lilt If FP1 = 1 THEN GO TO LL23 
FOR PURePQR+1 STEP 4 UNTIL 5 DO 
TEMPCPGR+1]+POR413 
FPL ¢ FPi¢ds | 

GO TO Luts 

Loat 


ENO 
Laat 
P1C1)3 
“LABEL LALS 


= 60FO witty 
MALE TEMP EL3J0« Sa.” 


10660040 
10660050 


10660060 


_ 10660070 


164 75 


START OF SEGMENT «eet ate wan 


10660989 


10660090 


START OF SEGMENT 


10660100 
10660;04 
10661000 
10661100 
10661200 
10661300 


10661400 


10661500. 


10661600 


T 


t 


tT 


T 
T 


O17 4 
O17 


0174 


Poteet ies 


0000 
0000 
0004 
0004 
0004 


0004 


Kk Re eee 


T 


0000 


= Gee 


T 


15 LONG, 


10661800 7 


10661900 7 


0000, 


0000 


NEXT SEG 


0005" 


0006 


10662000 T 0007 


10662100 T 0007 


10662200 1 


0000, 


10662300 T 0003 


106 


163 


164 


163 


165 
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r) q 
e 165 1S 6 LONG, NEXT SEG 163 6 
1 GO TO L8ls Se - 10660250 T 0008 
- LAL? TEMPL12] + 123 eee 10660260 Tt 0008 
e|: LB1s xi ¢ |3 10660270 T 0010 
GO TO L3s i i 10660280 rt O01! 
e 2 L2: BEGIN _ 10660299 0012 
@ i . INTEGER Y13 10660300 T 0013 
START OF SEGMENT a*eeawewee 166 
°. LABEL L&sLSsber LSTS | 0660310 T 0000 
16 
) ’ GU TU L4; 10660320 T 0000 
Be a ge EMPL ay * 1008 10660330 T 0000 
. f Bihan PE Bo Dae SS ll a NY ern I ae a Se i ee A ee a ee OOO EO 000 
@» GU TU L6)5 10660350 7 0003 
oom ESS UBEGING OOOO mn 660960 T0008 
“4 LABEL 473 Bele otiee: 10660370 7 0005 
@ : START OF SEGMENT xkutewetwe 167 
ae | Go TO Ls 10660380 7. 0000 
sd ss TEMPC15) «© 1013 ee 10660390 T 0000 
r) L73 TEMPL7) « 7 10660400 tT 0002 
oe END} 10660410 T 0004 
7 YS 6 LONG, NEXT SEG 166 
@ | GQ Ta LST3 10660420 T 0006 
. | “Let TEMPL6) © Yux3s | a ae aaa 10660430 T 0006 
a GOTO LSs } ee 10660440 0009 
@ ; . LST! ENDS 10660450 7 0009 
e i | : 166 y8 11 LONG, NEXT SEq 163° 
si] GO TO LASTS _ 10660460 T 0014 
& a L33: TeEMPC8] « 83 10660470 T 0014 
of GO TO La: "70660480 T 0016 
bh LASTSTEMPLO) © 93 oe RE ode nos . 10660490 t 0017 
@ BEGIN 10660500 tT 0019 
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a = a SS eas 
x 5 &o & b © oo og es a hy 
: < 


LABEL iC13 10660510 T 0019 e 

, "START OF SEGMENT etataeneeuw 168 D e 
2 . 2 
3 BEGIN | te ones, _ 10660520 rT 0000 3 
4 4 

5 LABEL LC13 10660530 7 0000 |@ 
6 6 

7 aah aie START OF SEGMENT a*eeaeewee 469 le 
: . : 8 
9 gO TO. L¢13 ae 10660540 0000 9 
10 10] 

M1 TEMPL16) © 1023 10660550 T 0000 |@ 
12 12 
“UCit TEwPriod « 10 ee ie 10660560 T 0002 13 

14 i : S vs ‘ : ey 14 @ 
5. ENDS le ant ae ee 10660570 0004 15 
6 16 

; 169 7S 6 LONG, NEXT SEG 168 |@ 
gi . Ro 8 ee ects entea  E e e 18) 

9 GO TO LCL: c | 10660580 T 0001 “e 
20 : : ; : 20 
: iB he Nyce ead Cee EO EA Tg or ee oes Es os ete ach, 0660890 Ono 24 
23 

Lois TEMPC11] « 11 10660600 T 0003 has 
TENDER 10660610 T 0005 29 

. La @ 
Bere ee 7 10 NE x : 63 2 
28 

FILL ANSC*] WITH OcTOs UcTarOcT3r»OcTu»UcTS» OcTé» OCT?» 10660621 T 0021 | @ 


eek ahead 


START @F SEGMENT 


OCT4Os OCT44» OCTy2s OCT432 OCTyds OCTOs OCTO» OCTO, —s_> 10660631 T 0022 
ucTo» acTos 10660641 T 0022 |@ 
i 
| 170 1S LONG, NEXT = 16 | "e 
CVN #475 | | | 10660650 T 0022 ss 
PNO « 663 10660660 7 0023 
VERIFY 10660670 T 0024 | te 
ENDS | | 10660680 T 0024 | P 
163 7S 30 LONG, NEXT SEG 10 ar 
PROCEDURE F743 COMMENT USE OF [NPUT FORMAT PHRASE A, DEC i] 19633 TO7a0o10 F 0474 ‘e 
epsin oe ae aaa | 10740020 7 0474 | ; 
INTEGER DS 10740030 T 01474 1@ 
: , ae START OF SEGMENT sta@aawaex 171 le 
ies: FORMAT IN FIAC 4-22» 26242)» LOMKASTUR"S2A5/)> 40740040 7 - 0000 3. ae 
| START OF SEGMENT «tawaeewene 172 @ °® 


Data Documents/Inc. 


e @ 
r 1¢1€202A3)))» 2Al» AS) 10740050 tT 0000 @ 
7 “472 7S 22 LONG, NEXT SEG 171 
@) 
: NA (FOR De ae N > DO MPLOJ)2 07 006" 000 
@ ; STREAM PROCEDURE FORMATAFILLECFILLA)3 10740070 T 010 
‘ BEGIN | "10740080 T 0010 
9 OCAL @S» QR» Qs 9740090 On 
ho 
@ i LABEL Li»los 10740100 T OO11 
COMMENT MAKE 3 BUFFERS OF FILE FDUMMY PRESENTS 10740110 + Oot! 
e: Lit Ste FILLAs SKIP 2 Sps COMMENT POINT TO PR gITs 0740 20 T0014 
@ IF $B THEN BEGIN SKIP 48 SB; 40740130 Tt OO011 
‘ Pane a IF $B THEN BEGIN SKIP 4g SB; Oe a ee ge 1o740140 r oot2 
” — IF Sg THEN GO TO LO} GOTOLi —«s—Cr“=s“=—s“=C“=CsC«407 0350 T O04 
@® END$ GO TO LL! 10740160 T 0015 
é ENDS GO TO Li 3 _— ee 10740170 T 0015 
adi COMMENT FILES ake NOW VERIFIED AS PRESENTS 10740180 T 0015 
@ |: Lot Sle FILLAS DI + LOC Qs DS + 3 WOS; 10740190 tT 0015 
DOiegs COMMENT FILL BUFFER 13 10740200 7 0016. 
e| OS*#40 LIT "Bs assests 10740 10 YT 0017 
@ |: pSe40 LIT "c"3 10740220 T 0022 
P OL ¢ QR} COMMENT FILL BUFFER 23 10740230 t 0027 
a DSe28 LIT" AABBIAAZAAACXXXXXXALI2Z3ZAAAS"3 10740240 t 0027 
e i | Ol* @S3 COMMENT FILL BUFFER 33 10740250 7 0031 
— 05619 BCEPEEPEE EST TS CLEC ME eae ae ee 10740260 T OOSt 
| ENDS ieee | 10740270 7 0034 
 ] READCFDUMMY)$ COMMENT OPEN FILE FOUMMY5 ~ 10740280 T 0034 
i FORMATAFILLECFDUMMY )3 : | 10740290 7 0039 
. READCFDUMMY*FIA*LINADS __ | a nn ee 10740300 T 0040 
e| FILL ANSC*)] WITH OCT2121,5 UCT2222, OCT3121, OCT2102» OcTe2lel, 10740310 T 0044 
Ps START OF SEGMENT etatauewen 173 
et _. OGT2123+ 0¢T2101010203» octozei212105» -40740320 7 0086 
) OCTOLOZ03s UCTO10203» OCTOZ0202» ACTI7 021"; 10740330 1 0046 
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+ * a) * : 5 


5 8 SUS RE SR ESREESEREER 


—z 


OCTI7» UCTis 0610053036120; 10740335 + 0046 
TFG S15 LONG NEXT SEG 


CVNGLS3 0740340 0046 


PNO « 743 10740350 t 0047 
VERIFY | | eae 10740360 T 0047 
wD EE EE Re St ath ta RE Sra a 0740370 0.0 


171 75 51 LONGs, NEXT SEG 


PROCEDURE P753 COMMENT INPUT FORMAT PHRASE 0, KM, DEC 10 19633 10750010 T 0174 
_BEGIN ei Sra ae Se 0750020 tr 0174 
INTEGER 03 10750030 T 0174 


I 


a ORMAT IN FORMO OC Os 13 206 16 10100))50  2C"KASTUR™)/ 16750040 7 0000 


START OF SEGMENT xewtatakan 


— _ 1030+ 13/)» I?» 20)3 eee "70750050 + 0000 
a ATS ¥8 23 LONG, NEXT SEG 
LIST iD CFOR De 1 STEP 1 UNTIL 4 DO TEMpEDI)3 10750060 tT 0000 
STREAM PROCEDURE FORMATFILLD (FID)3 ee ee ee 10750070 7+ Oat0 
BEGIN Peat tiled el eee oe ele OP OOO 21-700 
LOCAL QS» QR» @3 10750090 7 Ool1 
LABEL LirLé; QF 000 7 OCTL 
COMMENT MAKE 3 BUFFERS OF FILE FOUMMY PRESENTS 10750110 7 0014 
Lit Sle FIDS SKIP 2 SBS CUMMENT PUINT TO PR BITS 10750420 tT Oot 
IF S68 THEN BEGIN SKIP 48 SB; 10750;30 7 Ool1- 
IF $B THEN BEGIN SKIP 48 SB3 ; 10750140 T 0012 _ 
IF Sg THEN GO TO L6s GO TO LL 10750150 t OoL4 
END? GO TO Li cae 10750160 7 0015 
ENDJ GOTO La 3 ee ee: 10750170 + 0015 
COMMENT FILES ARE NOW VERIFIED AS PREDSENTS 10750380 ft 0015 
Lot Sie FIO} OIeLOc as DS* 3 WDS? —— 10750190 7 0015 
Die Q} COMNENT FILL BUFFER 1) 10750200 T 0016 
DS¢ 33 LIT "ABCDEFGL23ABCDEFGHI JKLMNOP123496"$ 10750210 Tt 0017 


174 ; 


10 
10 |@ 


174 19) 
175 1 @ 


74 u 
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. e a ry 3 ty 5 A n = 


coc onr~ DW OO FF Ww NY = 


=a 
a 


= 
> 


oe 
ca) 


w 


DS¢ 10 LIT "PQRSTUVWXY"; 
DSe« 37 LIT "x"; 
DIleqQrRs 


DS¢ 27 LIT "123456781234567812345678000"5 


DSe10 UIT "AN; 


Dy«aS3 


DS* 23 LIT "12345607 AAAAAAAALA2B3ICONNG 


ENDS 


COMMENT FILL SECOND BUFFERS 


COMMENT FILL SUFFER 33 


10750220 T 0021 
10750225 7 00623 
0750230 0028 


107502040 T 0028 
ee 10750245 y 9032 
¢ 0 O 3 Ot 


10750260 T 0033 


10750270 7 0037 


READ C(FDUMMY)$ COMMENT MAKE FILE FDUMMY PRESENT3 0750280. 00: 


READ CFOUMMYsFORMD>LO)3 


CYNe 43 
PNO ¢ 753 
VERIFY 
ENDS 
PROCEOURE P763 COMMENT FORMAT PHASE E EK 2 JAN 633 
BEGIN | 


ARRAY AlCOtiJ» BLOta4)]» cloOt#als 


REAL Xe Yo ZeRoweXleo Vir Vor ¥ 3} 


FORMATFILLD CFDUMMY)$ COMMENT FILL BUFFERS WITH INFQS 


10750290 r 0042 


FILL ANS C#)] WITH 234% 2345645 000+ 32345673 


10750300 tf 0043 
in thteneditee celta elot 0750310 0047 


START OF SEGMENT wtetatewen 


a as 6 LONG, NExT SEG 


176 


174 


ee eee 10750320 7 0049 | 


10750330 7 0050 
10750340 r 0050 
10750350 fr 0050 

54 LONGs NEXT SEG 
10760010 T O474 
10760020 047 


10760030 7 0474 


START GF SEGMENT asatawntes 
ame 10760040 7 0005 


INTEGER I5 


FORMAT IN FORMICES,1> 2EBel» 2(68,122610.3))3 


FORMAT IN FORM2CE11¢4e5E13S Sebi eS eb Oeseb Golds 


10 


177 


10760050 7 0005 
10760070 t 0005 
START @F SEGMENT wtetuwawne 


178 +S 9 LONG, NEXT SEG 


10760080 + 0005 


179 7S @ LONG, NEXT SEG 


START @F SEGMENT seetesnene > 


78 
177 


479. 


177 


LIST LYi¢cXseYeZe-ReFOR [#0 STEP 4 UNTIL 1 DO ALIJ» We FOR aa?) 10760090 TF Q005 ® 
STEP { UNTIL 1 00 BCI])3 oo F0760400 7 0018 le 

LIST Le ( Xt» FOR 1 © O STEP 1 UNTIL 2 DO CLIJ» Yl» Yo0 y3)s_ 10760410 002 ‘ 
STREAM PROCEUUKE STPiCF1e X)3 10760415 fT 0039 | |e 
“VALUE X3 40760116 T 0039 le 

BEGIN tse aeg e 10760120 T 0039 
LABEL A» Bs C3 10760425 Tt 0040 1@ 
UleF 1s STeLOC xs STeSTe731F Sca a" THEN GO TO As 10760130 7 0040 te 

IF SCH"B" THEN GO TO.Bs GO TO C3 agit zm 10760135 7 004 : 
At DS#36 LIT ""0,16+08 0,80+01 0,564+00"0,16 03 0,645"; 10760140 rT 0042 ar) 
OSe38 LIT "@ 0240,1658 G2"0,1090490,173640750,200"; 10760450 7 0048 te 

344 ne oun a. a 07601: 0 | — 
B! pSe34 LIT "=0,25250402 0,8885200403 0.735126"; 10760460 T 0054 1@ 
0538 LIT " 03 0,1364218406 0.162508 0270,6258.01" 5; 10760465 7 0058 le 

: , en Tar ola , cia ie 

a 
Cs ENDS 10760480 T 0064 od @ 
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. 2 zy « ; ~. = 


| 
t 
1 
! 
t 
| 


STPICFDUMMYCO)>" A"). 10760190 ‘le 
READ CFOUMMY>FORM1sL11)3 ei ue eee ee 10760200 a 
STP1CFOUMMYCO)s"BN)5 10760210 T 0073 1 
AE ADCFDUNKYs FURNSSLS) Sa ae ar eeaIe a OO le 
| 2 


TEMP(1) 


? 


ce 10760220 tT o0o8L , s 


TEMPL2] }. , 10760230 
10760240. 


10760260 


FOR I + 0 STEP. 1 UNTIL 2 00. | 10760270 tT 0090 
Bee N i oe - : os ; ae “40760280 1 0094 | 
— TEMPEI45) © ALII3 10760290 7 0091 
‘ - TEMPET ee) © BCTIs | —_ | 10760300 7 0093 
a oo * “40760310 70096 
TEMPELO] © X13 | 10760320 tT 0098 
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< a re B * 3 Th = 


oo n~x Mm OF F WN = 


a 
ial 


FOR IT ¢ O STEP 1 UNTIL @ DC TEMPCI+11) + CCI; 


10760330 7 


TEMP(C14) ¢ Y43 


MP ] ¢ Y¥23 


10760340 7 


MP(16)] ¢ Y 


FILL ANSC*) WITH 0C73054611320000000% 0CT1131000000000000, 


UCTIN10000000000004, GcT2000000000000144, 
OCT1121004000000000» 0C1T1432040000000000, 


TAKE“ 2649707» Uch3s06646a7% a0U0N0000, 


0C13113720000000000» a¢73040000000000312, —_ 


10760371 T 


0144 


START OF SEGMENT atakawaken 


1076038} 
10760391 7 
1076040] 7 


10760424 7 


O6711415704121727032 0¢674010000000043371-+ 


0c71074123450000000, OcT1132020000000000, 


OCT3146200000000000% O0C7T1141000000000000; 


a3 


10760431 T 
4076044] 7 


40760454 T 


O12 
0412 
0112 
O112 
0112 
0112 


0112 


180 7S 16 LONG» NEXT SEG 


CVN © 163 
PNO «+ 763 
VERIFY 


ENDS 


PROCEDURE P783 COMMENT INPUT FORMAT FHRASE Ie KM OCT 23 633 
BEGIN 


INTEGER OD; 


10760460 7 
0760470 

10760480 T 

10760490 T 

177 yS 122 LONG, 

10780010 7 

10780020 7 


10780030. 


O112 
0 
O114 


0114 


NEXT SEG 


o174 
04174 


0174 


START QF SEGMENT wteteeetne 


FORMAT IN FORM1 (71C2T1)olcaleele)s Sle, Sale, atatile2ledd)/ 


212+ 16» 2620261199293 


10780040 + 


0000 


START OF SEGM NT stataewawes 


10780050 7. 


. . - 
nm [) ¢ Y \ ° ® MPP 


STREAM BROCEDURE FORMATIC FID} 


BEGIN 


0000 


182 7S 32 LONG, NEXT SEG 


10780070 7 0010 


10780080 T 


0010 


180 


177 


10 


161 


182 


181 
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no <2 SO = ae 
3 & d 5 38 5 Uo 


a 


LOCAL QSeQR» O53 


LABEL Lis L6s 


Lis: SIleFIls SKIP 2 SB} COMMENT POINT TO THE PR BlTs 


If SB THEN BEGIN SKIP 48 SB3 


FSB THEN BEGIN SKIP 48 Sp3 = 
IF SB THEN GO TO 163 GO TU L43 


END} GO TO Li; 
ENDS GO TO 
L6? SleFI3 DleLOC Q3 DS+ 3 WDS3 
dle @ 
O5¢40 LIT "Aa"; 


USe¢40 LIT "ANG 
DI «#@R3 


0S «36 LIT ML +42 0342439495 4643944454 65354555 661 62"5 
D5e16 LIT 636465666564H6G7"F Dse 28 LIT "0" 
pleass | | 
QS + 16 LIT "1516+1234521376695"3 
ENDS = 


READ (FOUMMYCNG))3 COMMENT FILL BUFFER BLANK CARDS 3 


FORMATICFOUMMY )3 COMMENT FILL BUFFERS WITH INFORMATIONS 
READ CFOUMMYs FORMis LI)s COMMENT EDIT THE BUFFERS; 


FILL ANS(C*] WITH 15 Os 2p =39 Ze 3m "Ae nS» 69 3s 4s AS» 4b, 


39 54? 55 Soe 6f* Gos G3e Bhs 5% és 


10780090 tT Oot 
1o780;i0 fF OO11 
10780120 tT 60 
19780130 7 Ool1 
107680;40 + OO4% 
10780150 T 0¢ 
10780460 T 0014 
10780170 7 0015 

0780180 00 
10780485 T 0015 
10780190 7 0016 
10780200 + 0017 
10780210 T 0022 

: 10780220 T 0027 _ 
10780230 T 90027 
10780240 7 0032 
1078025C 7 0038 
10780260 + 0038 
[0780270 1 0044 
10780280 T 0041 
10780290 tT 0046 


10780300 
10780310 


START OF SEGMENT 


TO7EU3: 


10780330 


65% 645 469 479 15% 165 123455 29 1s 3» 
7» 69 O» Os 53 


10780335 Tt 0053 


163 7S 36 LONGs NEXT SEG 


HERA 183 
US 3 
tr 0053 
181 


10760340 7 0053 


CVN ¢ 383 


cE PNB FRR 


VERIFY 


10780350 rT 0054 
{0780360 T 0054 


e q 
@ END} 10780370 tT 0054 q 
1 "181 7S 58 LONG, NEXT SEG 10 
e PROCEDURE P79s COMMENT INPUT PHRASE Le JAN 9, 19643 Ate fe aoe 10790010 Tt 0474 
r) BEGIN 10790020 tT 0474 
; INTEGER D3 | re 10790030 7 0474 
eo) | ____ START OF SEGMENT sWakeweeee 784 
@ i FORMAT IN FORMATLOGICALC2(L5)L15/ 20245, "KASTUR” L547, 10790040 T 0Q00 
y START OF SEGMENT s#eenwwewe 185 
a ~-1¢406265))0/4))3 0790050 6000 
ad 185 7S 20 LONG, NEXT SEG 184 
we anoee List LOGICAL (FOR D + 4 STEP 1 UNTIL 15 00 TEMPLD])5. 10790060 T 0000 
” Pt STREAM PROCEDURE FILLLOGIcELOQs ———‘“—sSsS 0750070 00 a 
@* BEGIN 10790080 T 0010 
é a LOCAL QS,QRaG3 "10790090 T 0011 
= LABEL Lir L6s : a 10790100 7 09 
0) COMMENT MAKE 3 BUFFERS OF FILE FDUMMY PRESENTS 10790310 + 0011 
. Lit ST¢FLOGs SKIF 2 SB} COMMENT POINT TO TRE PR BIT: 10790120 Oo11 
al IF SB THEN BEGIN SKIP 48 SB3 10790430 oo14 
@- If SB THEN BEGIN SKIP 48 SB3 10790140 0012 
LD IF 38 THEN GO TO L6? GO TO Ly} 10790150 T 0014 
or ENDS GO TO b1 10790160 00 
& ENC4 GO TO Lis 10790470 0015 
e COMMENT FILES ARE VERIFIED AS PRESENT} 10790180 t 0015 
Lot 81 FLOGS DleLoc @3 DS + 3 WSs 10790190 0015 
@ 7 DIl*Qs COMMENT FILL BUFFER 13 10790200 0016 
. ee OSe25 LIT " TRUEFALSETRUE FALSE TRUE"; 10790210 00147 
ol Bes OI*QRJ COMMENT FILL BUFFER 23 ee eee 10790220 0020 
@ | DS¢36 LIT"TTTTTIILL1KASTUR TRUEOL2Z34F ALSE TRUE" 10790230 0020 
.f 3 DI+QS¥ COMMENT FILL BUFFER : : 10790240 7 0025. 
© a ef D$*39 LIT" TRX FALSXKASTUR TRXX TRUE  TRVE123454323"3. 10790250 7. ooas. 
@ ENDS 10790260 0031 


Data Documents/inc. 


s 4 . 0 y ‘ 5 ~ 7 


i end Re ene em aan @ 


READ CFOUMMY)S COMMENT OPEN FILE FOUMMYS | 10790270 7 0031 6 
— PELELOGIC CFOUMMYD$ TODO TF 0036 - 
READ FOUMMYsFORMATLOGICAL* LOGICAL)3 eee: 10790290 T 0037 
FILL ANSC#] WITH 19091909021202020900 0209091903 10790300 T 0044 1@ 
ee START OF SEGMENT wtetawntew 186 ie 
ee 2 Oe ee eee: eee 186 98 $5 LONGs NEXT S$ 84 
CVN ¢ 153 10790310 7 0043 ar) 
eevee tuces i ene —_ ~ «10790320 FT Goaa le 
VERIFY - Ad Gate kt | | 10790330 7 0044 5 
END; 10790340 7 0044 1@ 
, 7 << F8G FS GB LONG, NEXT SEG 10 le 
PROCEDURE P803 COMMENT USE OF FORMAT INPUT PHRASE 03 Ee. a 10800010 tT 0474 | 7 
BEGIN 10800020 T O474 Je 
ad 
_ - INTEGER D3 | eee 4098000380 T O174 “e 
OF SEGMENT ween tewae 87 2 


a aa IR aa Te SD A i START 
FORMAT IN FU, COs2G020400))/ "KASTUR"Y 464020620))2)3 10800040 7 0000 le 


Ss BSUS F 
[Ss] 


LIST LI CFOR Dei STEP 1 UNTIL 9 DO TEMP[D))3 10800050 tT 0000 1 @ 
36 

— «STREAM PROCEDURE FORMATUFILL (FO)s i ~——« OHON06O T OOO le 
: F : 39 
BEGIN ee 10800070 T 0010 | 39 


LOCAL QS,QRsG3 . 10800080 «|@ 


BSS Es SE SERRE SES 


“CABEL Cis Cor eres 10800090 T Ooli : 6 
COMMENT MAKE 3 BUFFERS OF FILE PRESENT; : 10800400 T 0011 id 

Li% ST*FOs SKIP 2 Ses COMMENT POINT TO THE PR BIT; 10800410 T Ool1 18 

“IF SB THEN GEGIN SKIP Ge SBF | = rae 10800;20 7 0011 le 
IF $8 THEN BEGIN SKIP 48 Sa; 10800330 7 012 : 

IF SB THEN GO TO L63 GO TO Lis 10800140 Tt Oot4 |@ 

: ENDS GO TO Lis —_ 10800350 r 0015 le 
ENDS GO To orn 2 10800160 7 0045 i 

COMMENT FILES ARE NOW VERIFIED AS PRESENTS 10800170 7, 0015 
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o ory nm FT FF WH = 


START OF SEGMENT 
START QF SEGMENT 


LCACF4sd2)0> 20X44)» F4e2s L5e 2C1010X1)) ob 593 10810050 


LO! SleFOs} DI*LUC as DS* 3 WDS; 10800180 tT 0015 
a. DIegs COMMENT FILL BUFFER 13 Se 10800190 7 0016 
DS¢32 LIT "00012345000234560006789000078901"5 0800200 0017 
OSe8 LIT "00023456"3 10800210 7 00214 
DI*GRs COMMENT FILL BUFFER23 -— 10800230 T 0022 
OSeuO LIT "ats 10800240 Ye 
DSea4O LIT "At; 10800250 7 0028 
Dle*ass COMMENT FILL BUFFER 33 —_— 10800260 7 0033 
: OS¢32 LIT "00014111000222220003333300044444"5 0800270 Tt 003 
ENDS 10800290 + 0037 
READ (FUUMHY)3 "40800295 7 0038 
OR MATOFILL CR OUMMY DS COMMENT FILL BUFFERS WITH INFO} 40800300 T 0042 
READ CFOUMMYsFULeLI)3 10800310 7 0043 
a FILL ANSC¥] W{TH OCTO000000102030405s ee "40800320 T 0047 
_ss—C START 0 AENT wea teva 
0CT0000000203040506» 0CT00000006071011005 10800325 T 0049 
OCT0000000710110001» OCTO000000203040506, 10600327 7 0049 
06T0000000101010101» acToon0000202020202, —=s«_—™ 10800330 7 0049 
0670000000 3030303034 OCT00000004040404043 10800335 T 0049 
189 75 9 LONG, NEXT SEG 
CVNG9S en 10800340 0049 
PNO«BO3 10800350 T 0050 
VERIFY “10800360 7 0050 
END Diba - 10800370 0950 
187 +S 34 LONG, NEXT SEG 
PROCEDURE P81s COMMENT FORMAT IN PHRASE Xr JAN 17 19630 KMyi 10810010 7 O174 | 
abeiN ee | 10810020 7 0474 
FORMAT IN FORML C(1CA6)s 1X6> Ide XLe X1sE9¢2e 3CLX1)> 10810040 T 0474 


eta ata haw 
aveteheten 


tT 0000 


187 


10 


190 
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+, 2 ry * a 5 Th 3 Tk 3 Ry » 
o>  & 3 : o & o> 3S & b 


0671142231463146315» 0¢T1152000000000000, 


VERIFY. 


END) 
PROCEDURE P9145 COMMENT FORWARD REFERENCE DECLARATION, KMe NOV 28 6263 
LABEL Lirh2eLieLdeLool ool 73 ee 


a 


10810200 
10810210 


START OF SEGMENT stataunwan 


= 10810460 ¥ 
OCTi» OCTOS —_ 10810170 
192 18 
CVNG7S 10810480 T 
PNO+813 10810190 7 


T 
T 


(S32 LONG, 


191 7S 32 LONG, NEXT SEG 
COMMENT CHANGE INPUT INFORMATION TO REFLECT CHANGE OF La TO LS 10810053 7 0000 
_GHANGE wAS MADE BECAUSE L4 1S NOT ACCEPTABLE TQ COMPILER ee: 10810055 1 0000 
NOTE MADE OF THISs 10810057 Tt 0Qv0 
INTEGER. 13 "10810060 T 0000 
STREAM PROCEDURE TRANSTOUBU FCSTRTD3 eee 0810076 0006 
BEGIN 10810080 T 0000 
‘OI © STRTS. i aid 10810090 7 0004 
DS © 32 LIT "ABCDEFGHSS$$$ 14165840 ,9544028$842"3 40810300 tT 090 
DS + 24 LIT "63$$%.25 TRUESSFALSE " 10810110 T 0005 
END 3 ee awe Aa 10810120 T 0008 
RANSTOBUFFCFOUMMY(0))3 sg 0130 7 2006 
READ(CFDUMMYs FORM1» FOR Ie1 STEP 14 UNTIL 8 DO TEMPEI))3- 10810140 T 0012 
COMMENT **#* VALUE OF TEMP 4 CHANGED TO MATCH THE CONVERT ROUTINE 19810145 7 0925 
FROM 0671142234163146344 TO 0¢71142231463146344 ie eon 10840347 T 0025 
FILL ANSC¥] AITH OCTO000212223242526, OCT2610» QCT137, 108101450 T 0025 


0027 


0027 


7 LONG, NEXT SEG 


0027 
0028 
0029 
0029 


NEXT SEG 


10910010 T 0474 


10910020 
10910025 
@F SEGMENT 


10910030 


T 
T 


0174 


0474 


190 


199 


10 


ate tetnwaw 493 


~ 


0000 
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ono nt mM OO eR wD Dy = 


= 
c=} 


= 
n 


= 
= 


A) 


pe SsSeseyseees 


re ee ee ee ee ee ee er a | 
(2 os 3 Se See ESS f 78 s 


PRACEUYRE FORW C(CFORLsFUR2)3 INTEGER FOR1» FOR23 FORWARD; 
INTEGER PROCEDURE FOWD (FWO1)3 = 
INTEGER FRDLS ae 
BEGIN 
INTEGER I 3 _ 
| STA OF 
1©03 IF FWDLs5 THEN FORWCFWD101)3 
FOWD* FWD + 13 
END} | | . 


PROCEDURE FORWCFOR1 »FOR2)3 


BEGIN 


FORi* FOR2 +3 3 FOR2 ¢ FOWO(FORIIs. | 
END: | 

SWITCH FOVURD FORWARDS 

SW] ni FORVO « 4» ey WVURODYT » 3 

SWITCH FOVURD * L4sL5 » FORVOCKI]s FORVDCK); 

BOOLEAN BOUL 3 

BOOLe TRUE: 

Jeis Ke23 


FORW(deK)3 TEMPC1) © Js TEMPE2) «Ks 


JB Ko l3 


GO TO IF BOOL THEN FORVOL3) ELSE FOVUROEK); 

Lit TEMPC3]«5 § GO TO L73 

Lay TeMPCal «jo; 

L7) Jeas Ke} GO To IF FALSE THEN L5 ELSE FORVOCK+1)5 
L2t TEMPL4)] « 43 GO TO L3; 


~LSt TEMPCO] #44) 


L 33 
FILL ANSC*J WITH OCT3» UCT4s OCTSs OCT4} 


NTEGER FORL* FOR; See eee tant, Se, eee es 


10910040 ¥ 
10910050 7 
0949060 
10910070 T 


10910080 T 


EGMENT avekaweeae 


10910090 T 


10910100 7 


0910110 
7 LONG, 
10910120 T 
0910130 
10910140 T 
10910150 T 
0910160 
10910470 T 
10940480 T 
109104190 
10910495 T 
10910197 T 
10930200 
10910210 7 
10910220 T 
109140230 T 
10910240 7 


16910250 T 


10910260 T 


10910270 7 
10910280 T 
10910290 

10910300 7 


0000 
0900 
0000 
0000 


0000 


0000 
0003 
bani 
NEXT SEG 
0000 
0000 
0000 
0000 
0003 
0003 
0003" 
OO19 
0035 
0035 
0036 
0037 
0042 
0043 
0048 
0050 
0052 
(0059 
0062 
0064 
0065 


193 
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0 a u * oh mS = 5 3 ~. 


START OF SEGMENT axtavnketnd 
498 78 4 LONG» NEXT SEG 


VN + 4 3 es Se ee ee eee a 0910310 0066 
PNO « 913 10910320 tT 0067 
VERIFY 7 40910330 7 0068 
ENQS 0910340 0068 


193 1S 75 LONG, NEXT SEG 


a: 


PROCEDURE PO4? COMMENT PROCEDURE HEADING EK 2a NOV 625." "Tognoolo 7 0174 
BEGIN ~ , : : Pees Bak 10940020 047 
INTEGER Le JeK3 10940030 tT O174 


START OF SEGMENT weetwtanwe 


sR a 240040 9000 
INTEGER ARRAY IACO35)3 10940050 T 0001 
= ALPHA ARRAY AACO#2]3 40940060 T 0003 


BOOLEAN ARRAY BACO3 10940070 0005 


BOOLEAN Ts 16940080 T 0007 


REAL X3 10940090 
PROCEDURE PICFPL,FP2IMFP2NCFR3,FP4sFPS»FROIMFPOM(FP7)3 sss «10940400 
VALUE FP4sFPa3 10940110 T 0007 
INTEGER FRU = 10940120 T 0007 
REAL FP23 | 10940130 7 0007 
ARRAY FP3(0]3 10940140 T 0007 


195 


193 


10 


196 


INTEGER ARRAY FP4L*)3 10940150 7 0007 


ALPHA ARRAY FP5[O]3_ 10940360 7 0007 


BOOLEAN ARRAY FP6[0]3 10940170 T 0007 
BOOLEAN FRPP 5 00 10940480 T 0007 
BEGIN “eo 10940190 r 0007... 
TEMPC13 © FPL 10940200 Tt 0007 
TEMPC2] © FR25 10940210 T 0009 
_FP3CO).¢ FP3CL) © FR3C2) + 3) 10940220 7 Oot1. 
FPatal © 43 10940230 T 0014 


@ 7 @ 
) FP5{O) « “ONES 10940240 T 0016 8 
FP5Ci] « "THO"S ee 10940250 7 0017 
@? . 
3 P5[2) + “THREE” eee te ee ee 0940260 0015 
4 
@ FP6(0) « FP6Ci] « TRUES 10940270 T 0020 
a FP7 © FALSE _ 10940280 T 0022 
> END EB te sete aoe ence SNe ete Ae : 9940290 OO 
10] 
er I ¢ 13 40940300 T 0027 


“xX # 10038 10940310 


ACo) ¢« alo) 3 10940315 


COMMENT CLUGE CARD REMOVE LATER *#enewe3 


10940315 T 0030 


6 

e” | COMMENT CLUGE CARD REMOVE LATER *#¥eeeees = TACO] ¢ TACO) 3 
8 
9 COMMENT CLUGE CARD REMOVE LATER *evewunas  AACTOY © AATO] 3 


1 COMMENT CLUGE CARD REMOVE LATER **eaeeaws BACO) + BACQO) # ads See eae 
ba COMMENT THE ABOVE CaRDS WERE INCLUDED TO GET AROUND PRESENCE glT 


10940315 7 0031 
1994090315 0033 
10940316 T O034 


WHEN AN ARRAY WAS PASSED AS AN ACTUAL PARAMETER TO aA PROCEDURE 10940317 Tr 0034 


Data Documents/inc. 


2. 


<n en: eS 
3 


bow» Sb = & 


reaes 


ENDS 


FILL ANSC*) WITH OCTL, OCTI44s OCT3s OCT4s OCT636646, 


OcT635164s OCTOs CCT263 


CVN ¢ 8s 


PNO « 943 


10940430 TF 0055. 


START @F SEGMENT - 


197 


196 7S 


i PACT oXs As lAsAAsBAsT )3 10940320 7 0034 
a 
a TEMPE 3) ¢ ACQ]3 0940 0038 
TEMPL4] « TALG]3 10940340 tT 0040 
TEMP[S] ¢ AAL1]3 —_ 10940350 7 0042 
IF BALO) THEN TEMPL6) ¢ "TRUM ee. 10940360 T 0044 
39 IF T THEN TEMPL7] + "ERR"; 10940370 t 0047 
TEWPTSI a <<. 10940380 T 0050 
10940390 rT 00514 


etutekataw 197 


10940400 tT 0053 


8 LONG, NEXT SEG 196 


10940410 T 0053 


10940420 tT 0054 


10940440 7 Q055 


64 LONG» NEXT SEG 


10 
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e er — @ 
®@ PROCEDURE P9535 COMMENT 56426301 STREAM VALUE PART. Ceo ZETHRAEUS, 12/3 10950010 T 0474 @ 
BEGIN REAL STREAM PROCEDURE GETVAL(V)3 VALUE V3 a 40950020 FT O174 le 
e eS START &@ SEGMEN isvetanuee | 98 
rd] BEGIN Sle LOC v3 Dy « LUC GETVAL3 DS «+ 1 WOS ENDS 10950030 T 0000 Je 
REAL AsBeC3 BOOLEAN Ds» Es Fs ARRAY MATRIX Cit3)3 INTEGER 13 10950040 7 0004 le 
. REAL PROCEDURE IDENTITYSX)3 REAL X $ IDENTITY © x3 ee 10950050 0003 | 
ho 
val! BOOLEAN PROCEOURE EQUIVALENCE (A)3 ler 0950060 0008 i 
@}: “BOOLEAN AS EQUIVALENCE © As | 10950066 T 0008 Je 
. TEMPL1] © GETVAL (1)3 | | 10950070 + 0012 "e 
Ae 23 TEMPC2) ¢ GETVALCA)} . _ 9 10950080 T 0015 na 
er Be 35 TEMPLES) © GETVALCIDENTITY(B))3 10950090 T 0019 1@ 
2 TEMPLOJ © GETVALCAXA 98D} —s he 10950100 7+ 0023 B 
FUR IT ¢ 41 STEP 3 UNTIL 3 DO MATRIXE]] ¢ 73 pees fe tet ease © 10950410 T 0027 ss 
al I ¢ 23. TEMBLS] © GETVALCMATRIXEI])3 —_ 10950120 T 0032 1@ 
< TEMPLOJ¢GETVAL((119)9L43%3I)3 Pee ey ee 10950130 7 0036 5 


us 


Bo D+ £ ¢ TRUES F ¢ FALSES | oo sac 10950140 T 0039 
TEMPE?) © -GETVAL(D)3 coe 10950150 T 0041 


a 
x 


eS 


TEMPC8] © GETVALC TRUE); 109501600 T 0044 


 - 
w 


e 
& 
@ 
@ 
© 
be TEMPE9]* GETVALCNOT F OR E 23 TEMPLOJ* TEMPL9).C4741)3 10950370 T 0047 a6 
L ° 37 
gis TEMPL10} + GETVALCEQUIVALENCE(D))3 10950180 7 0053 a4 @ 
39 ; a he a Z 39 
e 0 FILL ANSC*] WITH OCTys UCT» OCT3s OCT7» OCT2» OCTSs OCTy,s 10950190 7 0056 40 
41 
START OF SEGMENT wwawewatee 199 42 
@ | > QCTi» OCTi» OcTI3 10950200 T 0058 4 @ 
199 yS 10 LONG» NEXT SEG 196 J 
e@ | We 
CVN * 103 PNO © 953 10950210 T 0058 r 
@} VERIFY ee oak | | 10950220 T 0060 1@ 
END 10950230 Y 0060 : 
@: s1@ 
| 98 yS 66 LONG» NEXT SEG 10 5 
BS ies 56 
ON : 40960010 T 0474. T 
= —{ove0020 tT 0174 | 
@ € 


Data Documents/inc. 


5 * * 2 2 8 E F 5 n 


BEGIN 10960030 7 0474 
INTEGER Av C3 | —_— i. = 10960040 T 0474 
_START OF SEGMENT weeeeewteew 200 
: ARRAY SRCECOIS]» DESTIN(1:9]3 10960050 T 0000 
: STREAM PROCEQURE CHECKCECLARATIONS (ARY1» AROUTsArc)3. > 10960060 T 0003 
vA A 3 speek, 0940065 000 
1d 
Mn BEGIN 10960070 T Q003 
; CAL AAS BBSSTROSTRERCsCCHODF 0 ssts—s—S 10960080 T 0004 
i LABEL LBL1» LBL23 0960090 7 0004 
| 
i __ it j ean H 100960700 000 
i | TALLY @A# AASTALLYS TALLY@ TALLY SAAS AAeTALLYS 10960110 T 0004 
; 
_ S ¢ AA WOS3 10960120 T 0006 
i , STReOI$ Cle LOC BBs DleDI+75 DSe1 CHKS ODI*STRE 10960130 T 0006 
c DSeBB CHR D1©D14BBs SyeS]+BBs STReDys Vyeroc cc; 10960140 T 0008 
a DI*DI+7s STRSRC#ST; ST*LOC C3 SI*Si+7; OSej CHRS © © 10960150 T Oo10 
Dl*STR3 SI*STRSRC3 DS*CC OCT3 10960155 T Oo11 
° OS+BB DECs Ol*Dlsccs TALLY «B83 TALLY*TALLY4+CC3 10960170 T OO12 
UDeTALLY3 Ds* DD ADDS DS+ DD NUM} ST+ST*003; == ———~— 10960180 T Ooia 
UT¢DIDOsDSeUO ZON} NS*OD RESET DSeBB RESETS === = 10960190 T 0016 
OS+DD SET# DS*CC SETS DI*DI¥AAs 10960200 T Oo18 
IF BB SC = DC THEN DS¢BB ADDS Ss 10960210 T 0019 
TOGGLE THEN DSeAA SUBS 96220 FON eL 
| IF TOGGLE THEN GO TO LeLis. | 10960230 T 0024 
DSe3 LIT "BAD" OSeS LIT "AMR t—~<“—s—=‘“—SsC*~‘“‘“<“<i<C Ow 10960240 T 0022 
: LBL1t DSe3 LIT "COR"$ OSe5 LITMANS 10960250 T 0024 
| LaL2t : oe ce on ae | 10960260 t doas. 
ENDS 7 - 10960270 T 0025 


FILL SRCEC*) WITH OcT242d2u242uadauad» OcT2dedad2danouauads 10960280 7 0026 
| START OF SEGMENT s*seaeewes 204 | 
OCTOS3333339393333301> OCT20000000000IIT 63> 10960290 7 0026 —— 


Data Documents/inc. 


y ey z) * : x: TS = By 3 3 7 


O0€T0102030405060700» OCT0102030707000000$3 10960300 T 0028 e 
| "204 7S 6 LONG, NEXT SEG 200 le 
ie@i " = eYoFolelelerenererorsneverave 0 oLeYovorenekereYavaverevanéye . N940 0 0.0 ? 
START QF SEGMENT «tetaubebee 202 /@ 
0CT3333330000000000» OcToi» 7 10960320 T 0030 le 
OCT0107510001020304s OcTOSO6O7TOO77153427, 10960330 T 0030 i. 
0CT01020305050000003 10960340 7 0030 1° 
B08 TS 7 LONG, NEXT SEG 200 le 
‘aetna | ee. 10960350 0030 i 
CHECKUECLARATIONS(SRCE(OJs DESTING1]» As C)3 10960360 t 0032 | 1e 
FOR Ce T STEP 1 UNTIL 9 OG TEWPECT© DESTINCIS— rr FOOT le 
ANSE*) WITH OCT24242424242424245 OCT24 4242424240424, _ 0960380 7 004 : r 
START OF SEGMENT ##e¥ate hee 903 1@ 
| 0CT3333330000000000» GcT0l» 40960390 7 0043 : e 
a eee OCT0407540002040640» OCTO5060700003734275 =  —=s=—s—«4g 0960400 Tt 0043 2 


0¢T0402030302000000» gcT2221242121212121» 10960410 T 0043 1®@ 

OCT23465121212121213 pea ee 10960415 7 0043 le 
20g 9 LONG, NExT SEG 200 

CVNGDs 10960420 7 0C43 |@ 

PNO*96; rs CLE LT : ‘ 


VERIFY 10960440 FT 0045 
ENDs 10960450 T 0045 a1 
42 
| aie 10 ah 


200 +S 50 LONG, NEXT SEG 


PROCEDURE P973 COMMENT 5+12.5+3 SET ADDRESS STATEMENT CCZ» 12/4/623 10970010 7 0474 ha 
BEGIN INTEGER AS INTEGER ARRAY B[1t2]5 10970020 T 0174 : \@ 
START OF SEGMENT weeneeawaw 204 — le 

INTEGER STREAM PROCEDURE SETLOC(A)} VALUE AJ | 10970030 7 0004 _ A 
BEGIN SI ¢ LOC As Ole LOC SETLOC3 DOS + 4 WOS END; 10970040 T 0001 1@ 

INTEGER STREAM PROCEDURE SETSCCA)s VALUE ar : 10970050 tT 0008 
A ics BEGIN SI * Loc As SI + SCJ SETSC © SI ENDS | . 10970060 7 0004. a ha 
INTEGER STREAM PROCEDURE SETDCCA)3 VALUE a3 10970070 T 0006 @ @ 


oo n~ @ TF F&F WN = 


= 
i=] 


= 
= 


= 
he 


a 
oO 


I 


= 
ao 


3 3 > 
w i<ees So w 
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4 y a 


Ae A A AA A A ee ee es. aS s » 


wn 2 & 


a 


on 


BEGIN DI * Loc AS DI © OCS SETDC + DI END; 10970080 T 0006 
Aei0233 FILL Bl*) WITH OCT3777770000000000» OCT3123450000000000; 10970090 7 0008 
_—s— CS TART 0 “MENT shawaeaewe 
205 +S 2 LONGs NEXT SEG 
TEMPL1] * SETLUCCADS _— 10970110 T 0011 
TEMPC2) «+ SETSCCH 0970320 00 
TEMPL3] © SETDC(BL2))3 10970330 7 0017 
FILL ANS C¥J WITH OCTI777s OCT3777775 OCT3123453 ~ 109701340 + 0024. 
, START OF SEGMENT stuvukekaw 
206 1S 3 LONGs NEXT SEG 
CVN ¢ 33 7 eS : 10970150 7 0023 
PNO + 973 10970460 002 
VERIFY 10970170 +r 0024 
END3 Se 7 10970180 T 0024 
Ea Sieh J g Lf 
JRE P98s COMMENT ORe ADDRESS De 4e ZETHR Ss 12/4/6323 0980010 
BEGIN INTEGER STREAM PROCEDURE STOSICA)s VALUE AS 10980020 rt 0174 
—_ "START OF SEGMENT wheaxeanas 
BEGIN SI * AS’ STOSI ¢ Sl] ENDS ee 10980030 oc00 
INTEGER STREAM PROCEDURE STODI(A)} VALUE AS 10980040 r 0001 
BEGIN DI + A$ STODI « DI END os 10980050 T 0001 
INTEGER STREAM PROCEOQURE STOCICA)s VALUE AS 10980060 0003 
BEGIN LABEL Lis L2s- LOCAL EXITS Pte 10980070 1 0003 
st + - 10980080 T 0004 
EXIT ¢ CIs 10980090 7 0004 
GO TO L4s 10980100 7 0004 
EXIT ¢ Cla VE ie gn ae 10980110 t 0004 
30 a ; meets os -——---—-_____ 10980420 7 0005 
EXIT © CI3 10980130 T 0005 
GO To Li? 10980140 7 0005 


@ 
@ GO TO Les 10980150 T 0005 e 
Lit Sye+STs87 CIeExiTs 90980160 T 0006. 1 
. L2t STOCI + St. 6d | | 10980170 t 0006 | hg 
& END} | 109801480 T 0007 |e 
‘ ARRAY ALT#3I3 : "10980190 T 0008 le 
FILL AC®) WITH OCT777777% 0C1666666s OCT5555555 0980200 0010 
@h . START OF SEGMENT atakuwewwe 208 1 
‘el 2y z ee ; ae — = 208 yS = 3 LONG» NEXT SEG 207 te 
TEMPLE) *STOSICACLIDS TEMPL2J¢STODICAL2I)3 TEMPL3]*STOCICAL3))3 10980210 7 Oo12 18 
® FILL ANSE*] WITH OCT777777» 0CT666666» OCT5555603 10980220 7 0023 1@ 
‘8 
START OF SEGMENT «*etuenwan 209 19 
= _ 209 1S 3 LONGs NEXT S 207. ae 
@ >: CVNe33 PNO + 983 VERIFY 10980230 T 0025 1@ 
e! EXDF alia aad ——Toagonm0 7 002s He 
gf “ 2 Se eg oe ee ee eT UL Ee 31 LONG, NEXT SEG 10 2 
: PROCEOURE P99; CUMMENT USE GF THE STREAM ADD STATEMENTe 501205,393 10990010 7 OQO174 1@ 
é BEGIN a 10990020 T 0474 : 
& ; 2 @ 
INTEGER I 10990025 s9 
@- START GF SEGMENT wkatanetwe 240 | | @ 
@ 
ry VALUE FUNC» TWOS 10990045 T 0000 : 
a BESTA oi : ae 7 10990050 t 0000 te 
LOCAL AsBs | 10990060 7 0000 As 
e- DI*ARAYTEMP25+ S[*LOC ARAYTEMPS DS © 1 WOS5 10990070 T 0000 \@ 
SRRAYTERPESSDISLOCARAYTENPZS7-OSé-1-WDS? 5T50G TOG 2 
| : OLeARAYTEMP253. OS*s LIT "AMS 10990080 T QQ01 oe : . 
e: DI*ARAYTEMPS DI*pl+83 SKIP 24 DBs DS « 24 SETS 10990090 T 0003 1@ 
‘. : | ACOLS” “SCTALLY*TALLVeLS2CTALLVTALLY +13 Be TALLY? 10990100 7 Go0q : 
do ‘SUeLOC Bs IF SCH "A" THEN JUMP OUTS DI*B)) UMP OUT)s > dtossanta. + ocos tt” ae 
r plea} DS* 8 LIT "BS AeDLs 10990120 T 0009 @ 


Data Documents/Inc. 


2 E = 
3 5 3 O a 2 % 5 


6 
OI+As DSB LIT "BS 10990130 T 0010 ® 
1 EES SSSSDTODT* FUNCS ST*© LOC FUNCS ST*SI+ FUNCZ OS* 6 CHR 3 = =©—)©—©—)©640990440 T 0012 
END} 3 | Le ENS ATE 10990150 0013 
INTEGER PROCEDURE x(a) 10990160 7 0014 
INTEGER Aj — 10990170 T 0014 
BEGIN xX © A_ENDS | ss 10990180 T 0014 
é CHECKADDSTATEMENTCTEMPs TEMPL25]» X(2)02)5 10990190 T 0017 
‘ FILL ANSE*] WITH OCTaialeiaialalaial» OCT?77777777* 10990200 7 Oval 
i $s i ? | MEN oF kawee 
OCT2222¢222222222225 OCT2222222222222222, 10990210 T 0023 
ue ocT2s ieee as 10990220 7 0023 
Eee et rerio arte te —2141 ONG, NE) : 0: 
p3 CVN ¢53 10990230 T 0023 
é PNO+993 a 10990240 T 0024 
Pf | VERIFY 10990250 T 0024 
a ENOS 10990260 T 0024 


210 1S 28 LONG, NExT SEG 10 


PROCEDURE P1003 COMMENT SKIP ADORESS STATEMENT HN 8B 3 eee 11000010 r 0174 
BEGIN 11000020 7 01474 
INTEGER [3 deine _ 11000025 T 0474 


START OF SEGMENT weeweaatwe 212 


NIEGER STREAM PROCEDURE SKIPP(NO)$ VALUE NOS 11000930 t 00900 

BEGIN | _ 11000040 T 0000 

SI <NUBCONMENT M REG AND G REG ARE SET TO VALUE OF NO; 11000050 T 0000 

NOCSI © SI 4Nu)3 | 110000460 ft 0000 
SKIPP © ST | fe 11000070 T 0002 — 

: ENDS —— {100007S + 0002 

FOR J « 4 STEP 1 UNTIL 10 DO TEMPCT] © SKIPPCI)§ 2 2 11000100 Tt 0003 


FILL ANSC*#)] WITH OCT100001» GCT400002* OCT{00004» OCTo> 11000410 T 0010 


START OF SEGMENT «#utetetan 


Data Documents/inc. 


‘ 4 a 0 a D a ~) 


Ey 


BSUS FES ESSERE ESE SS 


OcT100010, OCT400012» OCT100015, 
OcT20e OcT100023» OcT4000263 SE TO le ee 


CVN©10% PNOCLO04 VERIFY 


END | 3 


PROCEOURE P1014 COMMENT TRANSFER WORDS 5, 12, 6. 3HNB3 


BEGIN | 
REAL ARRAY. SORCEsDESTNT* DESTINTN( 116433 


11000420 
11000430 

0 J IN 
119001440 


11000450 


16 LONG 


41910010 


11010020 
11010030 


START OF SEGMENT 


STREAM PROCEDURE MVEWO(FROMsTOW*sNUMBER)AVALUE NUMBERS 11010040 
ee Nea a Be ee a ee eal 010050 
SI] ¢ FROMS S1 ¢ SI +2; 11010060 
——— Or « TOWs DI + OT +43 G0 40070 | 
WS + BER OS COMMENT PLEASE ADJUST POINTERS To 010080 
START OF NEXT WORDS 11010090 
ENDS ee ee ee a ~-£1040100 
INTEGER I? N3 ee 11010110 
FOR I © 1 STEP 1 UNTIL ©4 720 1101042v 
OM &BEEGENOOOOOO ie as 11010130 
SORCELII+1 ; 11010440 
DESTNILI}«633 11010150 
END? _ 11010160 
MVEND(SORCELL 1>DESTNTL1 306395 COMMENT BLOCK TRANSFER 3 11910170 
DESTININ C2J¢73 11010180 
MVEWOCDESTINTNEL,DESTINTNC2)440)3 COMMENT CHAIN 3 11010490 
TEMPEL) * DESTNTE 6433 - : 11010200 
TEMP(2]) ¢ DESTINTN(12]3 11010210 


< FELL ANSE*I WITH OCTIOOs OcT73 


215 78 


(44010220° 
START OF SEGMENT sentaenten 215 


2 LONGs NEXT SEG 


T 


T 


T 


T 
T 


0011 


6001 


0011 

0013 
NEXT S 
0474 

O74 

0174 


ee aekakkkae 


T 


T 


Ee. 


r 0003 — 


0002 
000 


0003 


0004 
0004 


0004 


0006 
0006 
0007 
0008 
0011 
OoL4 
0016 
0019 


214 


0021 
coza 


214 


1 
2 
3 
4 
5 
6 
7 
8 
9 


Data Documents/inc. 


CVN © 24 PNU © 1013 VERIFY 
ENDS 


PROCEDURE P1023 COMMENT 5,12.6664 TRANSFER CHARACTERS RN B 3 


BEGIN 


~ ie 


START OF SEGMENT 


VALUE S*# DO» C3 
BEGIN | 


ts aa a 


St « SRC3 SI ¢« SI + 33 


DI * DESTSOI « DI +d; 
OS + € CHR 


ENDS 


INTEGER Te NNeDOCCe VARs VARZ; 


VAR® VAR2 « 43 


SERESSEETR 


Crerer 


FOR I ¢ 3 STEP 1 UNTIL 6 00 
PRMTCVARSVAR2s 7a» £)4 TEMPCLIJ*VAR23 


. . ee ” rs 
ut! ‘Be oP * tad ‘te 


FILL ANSC*)] WITH OCTO101010101, OCTO1013 


_ 217 78 
CVN « 23PNO ¢1023 VERIFY 
ENDS : 
eo 216 +S 
PROCEDURE P1038 COMMENT STREAM PROCEDURE INPUT CONVERT» KMe DEC 3e3 
BEGIN | 
ARRAY SRCECO86I+ DESTNELIAIF. 


119020060 


11010230 T 0025 
11610240 1 0027 
shi h $s ‘ 
11020010 T O174 
11020020 T 0474 
0) as O Wa! 
EKEKREKEKREY 216 
11020035 T 0000 
020040 0000 
11020050 T 0Q00 
T 0000 
020070 000 
11020080 T 0002 
11020090 Tt 0002 
020095 000 
11020100 fT 0004 
11020110 Tt 0005 
Ue U % WOLO 
11020130 7 Ootd 
atta 917 
2 LONG, NEXT SEG 216 
11020140 tT 0016 
11020450 ~ 0617 
22 LONG» NEXT SEG 10 
11030010 + 0174 
11630020 T 0174 
11030030 T0474 
weetnketenw 218 


START OF SEGMENT 


INTEGER GC) 
STREAM PROCEDURE INP (AsBe Xe Ye Ze Q)3_ 


VALUE Se Y¥odeQs 


11030040 


11030050. 


11030060 


tT 0003. 
ea 
T 0003 


BEGIN 119030080 Tt 0003 e 
ae STeAs Dle Bs ee" T9030090 T 0008 ‘le 
OS + 1 OcT #§ SI + SI +63 DS + 4 OCTs SE + SI 45) 11030,00 T 0004 
co + 8 OCT: 11030110 T 0005 |@ 
—DSeY UCTS Sl*SI+6s OSeX OCTHSI*SI+Xs SIeSI+¥s +©%4030120 7 0005 le 
| Se 0 a a 030430 0008 | i 
Ose QOCT3 DS ¢ Q OCTS 11030140 T 0008 @ 
ENDS oS ee 11030150 7 0009 | "e 
LL SRCEC*) WITH 0C75100000000000001» 0CT0203040000000000» 11030160 T 0009 ts 
START OF SEGMENT wheteentwne 219 1@ 
00670102030405060750» 0CT1100000000000001".. 449030470 7 0011, Me 
QcT0203440000000000» gcT0402030405060710% = == 43030480 T O01 | 21 
UCT10101010101010103 11030490 : 0011 1@ 
iad B19 7S 7 LONG, NEXT SEG 2186 
2 @ 
NPCSRCELOJs DESTNE1)» 4» 1» B, 0)3 oe en 1403020 Oo11 I 


Data Documents/inc. 


0 + a * n ya 8 = . x ~ 


FOR cey STEP 4 UNTIL 8 DO TEMP[C]+DESTNE C3 11030210 T 0014 @ 

MRL ANSE *Y WITH GCT20000000000N00TI, OCT23225 °° °° 7830220 T 0020 : e 
ee een eee MENT ata weta tae : 

GCT2000000057060516» gcTi1» acT2000C00000002322» 11030230 T 0022 1@ 

ORC TS7060516s UCTiO» OCTOs 11030240 T O022 i e 
ae | 220 7S 8 LONG» NEXT SeG 218 : 
CVNG83 11030250 T 0022 i 

PNOe i083 a 11030260 T 0023 +e 
VERIFY. . | _ 11030270 T 0024 B 

ENDS 11030280 T 0024 je 

: : | | 216 yS 29 LUNG» NEXT SEG 10 le 
PROCEDURE P104s COMMENT STREAM PROCEDURE OUTPUT CONVERT? KM, DEC 33 11040010 T 0174 ‘ 

BEGIN 11040020 T 0474 1@ 
ARRAY SRCELO@G]¢ DESTNTI als — 11040030 T 0474 


START OF SEGMENT. weetetween 224 


a 


INTEGER C» Fs GH3 11940040 T 0003 


Data Documents/inc. 


5 a 


oo ~~ OD TF FF WH = 


D 
23 
94 


STREAM PRUCEDURE OUPCA» Bs Xs Yo Zs Qe STV 
VALUE Xe Ya 28 Q3 
BEGIN 
LUCAL PQR3 
St*As; DIeBs TALLY«03 
DSe 2 DEC# DIl*DI + 53 DS*4 DECS De Dl+5; 
DS¢ 8 DEC 3 
DS+Y DECs DIe*DI+xs Di*DI4¥s OSeX DECs DleDIex; 
pleo Ys 


11040050 Y 0003 
114040055 T 0003 


04008 QQG 
139040085 T 0004 
1104009G T 0004. 
11040100 0004 
41040110 T OCCS5 
110403420 T 0006 

040325 1 0008 


DoseZ DECS 
DS ¢ DECs DS * @ DEC; DI*DI+8; D0S* 3 DEC; 


STeLOC PORs OIeSTV3 DSei1 WOS3 


11040130 T OCOo9 
"14040440 T 0009 


: IF TOGGLE THEN TALLY*53 PQR*TALLYS sp ee eg et ee ORO TO C010 


1190460453 T 0011 


END; 


COMMENT DS* DEC WILL CONVERT 41 OCTAL WORD TO 4 DEC CHRe DSeo DEC wILL 


* wetaweeeweeeNOT EFFECT THE SOURCE OR DESTINATION STRING NOR CONVERT 


FILL ORCE C*) WITH OCT2UNQ00QCO000001 Ls, acT2000000000003434, 


11640155 7r 0012 


11040356 T 0012 


; 11040157 Tt QO0l2 


11940160 y 00612 


UCTZ000C00056740516»5 OCT11i» OCT3434,y 


OCHS6740516# OCT7s OCT2450, OCTI7i THT? 


Fo ¢ 43 
OUPCSRCECLOJ* DESTNCil» Fe 1° B» O» GH)3. 
FOR Ce. STEP 1 UNTIL 8 DO TEMPL[C]+ DESTNIC]3 


11040470 1 0014 
ae 11940;60 7 O044 
ee2 38 9 ONG» NEXT SEG 
110401485 7 0014 
11040190 T 00158 
11040 00 0019 


IF GH=0 THEN TEMP(9)¢S ELSE TEMP(9J)¢03 


FILL ANS Ces WITH OCT0051000000000001» O¢T4002400000000000, 


0¢670102030004070150s» 0¢671100000000000110;, 


acTOe2 ) 0 ts OCTO20 0407011007, 


QCTOs OGTO302000000000000% OCTS3 


se mirc meas ete 


11040205 t 0024 
11040210 f 0030 
START OF SEGMENT #eeeewaees 
11040220 T 0034 
11040230 F 0031 
040240 1.003, 


223 78 9 LONGs NEXT SEG 


22h 


223 


221 


Data Documents/inc. 


0 mms S35 x. 53 ~, 
a 3 O & oh 


oN 2 8 6 & 


oe: 


CVN € 93 
PNO « 1043 ea aera 
RILEY ee ee tee —_ 
ENDS 
aaa 
PROCEDURE P1053 COMMENT STREAM PROCEOURE TRANSFER AND ADD STATEMENT ——__ 
50122607 DEC 4, 1962 KM, 3 
BEGIN ee 
ARRAY SRCE £4343) eDESTN £441373 ee eee ——— 


11640250 


040270 
11040280 


T 


11040260 


T 


T 


39 LONGe 


11050010 
11050020 
11050030 

050040 


START QF SEGMENT 


INTEGER Cr GR» QRS; 
STREAM PROCEDURE TRADD (Ar aeXeY¥aZeQeR)3 


VALUE Ks Ys 23 


BEGIN 
LOCAL QQ» RR3 


Sle@s DI*Lac @@s DSet WDOSs STeRs DI*, OC RRZ OSei WHOS; 


Sle As Ole*Bs TALLY*O? 


ps «2 ApD3 


DS*X ADDZ ST*©ST+25 DleDI+2; DS*3 ADD 3Slea; pleB; 
“ST+iés OFeDT+ {63 — 
DS* Y ADDS OSe Z ADD; 


Slo© AZ NIe€BsS SIeSI+403 DIe DI +40; 


US*Z SUBS ST*SI+¥5) DIDI*RRE SKIP G SBS SKIP 4 DBs 


D9*#X SUBS STeS]+23 Hlepr+2; DSe3 SUBS SleaA; Oleb;_ 


DTeDI+563 S1*51+563 
DSe 1 ADD} IF TOGGLE THEN OeTALLY 
“phe D145; SIeS145s 0S*5 ADDS 


11050050 
110500606 
11050065 
11050070 

050075 
11050077 


11050080 


T 
T 


T 


_ 


0033 
NEXT SEG 10 
0174 

0474 

0174 

Oy74 


ere es ee 2 224 


T 
T 


0003 
0003 
00G3 


~ 0003 
000 


IF TOGGLE THEN RRETALLY3 


—DTeDI+53 STeS1453 OSe¢ADDs O5+SUB; 
DleRs SI*LOC RR} OSe1 WS; 
ENDS 


11050090 
11050100 tT 0007 
TOS0i10 7 0005 
11050120 T 0009 
11050130 T 0010 
{705040 T0011 
11950150 T 0013 
11050346G tT 0015 
11080190 7 0015 
11050200 T 0016 
11050210 + 0017 
Tios0aao TOOT? 
41050225 7. 0018 
11050230 T 0019 


Data Documents/inc. 


6 * B a zy 4 : a 
a ¢G : = a 


oo ND TF FF WH = 


= 
i=] 


= 


= 
LJ 


@ |. 


15 


FILL SRCEC*J WITH OCTO411000000000077s5 OCT2706450000672747, 


O0C72345103;23450704» 0C1T4527274700000000, 


OCTONOCVOOQNDODOCOOONs OcTO407000000000077;, 
OCTOGO7O711110203 44% OCT1160000000001111;, 
OCT11414110000000000» OcT2222222222222222; 


FILL DESTNE*) WITH OCT0411000000000077» O¢T27066500002743279 


OCT27272745104423 45» 0C71031234527312731, 
OCT2741000000000000% QCT0207000000000077, 


OCTIL07471111030404~ OCTSi00000000001I11, __ 


O¢T11111210000000000» OcTO0000000000000003 


SO Aa moe ToT ee ree ele Le ea A ee 


Qke53 QnSe 53 


TRADDCSRCECLI]» DESTNE1)* 35 12» 6» QR» QRS)3 


FOR Ce1 STEP 1 UNTIL 10 00 TEMP{CJ« DESTNEICI]3 
IF @R*0 THEN TEMPCil]¢1 ELSE TEMPCI1)¢53 


11050250 7 


11050270 T 


11850280 T 


050290 
10 LONG, 
11050320 fT 
START & i 


11050330 T 


11050340 7 
11050350 T 
11050360 T 
10 LONG, 
050385 
11950390 T 
11050400 fT 
11050415 T 


IF QRS=O THEN TEMPL12]ec3 

FILL ANSE*] W CT11190000000000077» OCT4yds 
0€6T0103060502000100,5 gCT0407044207110714% 
00T0741000000000000- OCTO240000000000077» 

(0670605441111050710, OCTi411» 
OcT111£1100000000000% OCTO242000000000000» 


OcTS» OcTas 


CVN© 123 

PNO ¢ 1053 

ERIFY 
ENDs 


11050417 T 


41050420 T 


11050430 T 
11950440 7 
11050450 7 
11050460 T 


11050470 Tf 


227 yS 12 LONG, NEXT SEG 224 


11050490 fT 

~~ 21050500 fT 
850510 

11050520 7 


0019 


START OF SEGMENT axatawwwas 
en 11850260 T 002 


0021 
0024 
00% 
NEXT SEG 
0021 


beh aha kat 


0023 
0023 
0023 
0023 
NEXT SEG 
O02 
0025 
0029 
0034 
0040 
0043 


___START OF SEGMENT auattanwnn 


0044 
0044 
0044 
0044 


0044 


0044 
0045 
0046 
0046 


225 


224 


224 


227 


Data Documents/inc. 


a oS 3 = 3 S 3 =. 
5 a b  & 5 b 6G 


224 18 52 LONG» NEXT SEG 10 
PROCEDURE P106 OMMENT STREAM DESTINATION STATEMENT TRANSFER 21060010 T O474@ le 
| CHARACTER PORTIONS EK 5 DEC 625 11060020 7 0174 | } ‘ 
BEGIN 11060030 T 0174 |e 
ALPHA ARRAY As Be Cs OC18633 | 94060040 T O17 0” le 
Sas dn ats START @F SEGMENT weatemteben 996 : 
ALPHA X»eYi 11060050 T 0002 @ 
INTEGER Is J} ; TG : 11060060 + 0002 a. 
STREAM PROCEDURE. STPROGCFyoF 20F 36F oF Sef 6)3 ete eee ee 11060070 000 1s 
BEGIN 11060080 T 0002 |@ 
(ABEL LivbaeCaeLael Si aaa aa CTT | le 
LOCAL C1» CarC3rca3 ee ee 11060100 7 0003 : 21 
SleF 13 11060416 T 0003 1@ 
eR ee eee eee 49060420 7 00032 ; e 
oS ¢ 4 ZON3 | 1060430 T0003 - ; 2 


DS ¢ 3 ZCGN3 110601440 tT 0003 
11060156 


05 ¢ B ZON}3 


0S «+ 4 ZON3 ee 060166 33 
05 ¢ 32 20N3 11060370 Tt 0004 1@ 
SleF33 —— ee, 11060180 7 0004 i. 
Der as 4 060385 0005 39 
pSe 1 NUM 3 11060490 T 0005 1@ 
DS* 1 NUMF i oa 11060200 7 0005 le 
| IF TOGGLE THEN GO TO L43 ee, 11060210 T 0005 i 
L2! DS « 3 NUMS 11060220 T 0006 je 
etl , DS #4 NUMR | | 11060240 7 0007 _|s 
Ed IF TOGGLE THEN Go TO 433 11060250 T 0007 1@ 
 . WR | : 11060260 T 0008 ; ‘e 
shee cis bat OS 492 NUM 11060270 + 0008 | E 
GU TO LS; 11060280 Tt 0009 ® @ 


Data Documents/inc. 


6 * a 0 y a . E a ~ Th 3 5 
op > 6 oh b 2 © & 


onmonwx om TF FF WHY = 


Las C2eDI3 


Lis Ci + DIs 
Dl ¢ F55 OL ¢ 01433 
OS.¢ SLIT "MINUS"S 


Ol ¢ CLs 


11060290 T dQ00¥9 
11060300 yr 0010 
060310 0010 


11060320 7 0011 


GO TO La; 


UleF63 DI* DI+4; 


DS ¢ 4 LIT "PLUS"S 


110960330 T Oole2 
060335 T. 0012 

11060340 T 0013 

11060360 TF 0013 
060370 00 


11060380 T 0014 


11960390 T 0015 
060400 00 


229 +S 


1106041¢ T Qo15 
START OF SEGMENT seututanne 
060420 T 0047 
1106043C tT 0017 
6 LONG, NEXT SEG 
11060440 T 0017 


sina nen nce 


START OF SEGMENT went eketne 


41060450 Y 0019 
14060460 0019 

230 1S 6 LONG» NEXT SEG 
11060470 7 0019 

START OF SEGMENT «teeta tae 


Ol « C23 
GO 16 L33 
Lot 
ENDS 
FILL AC#) WITH OC7212225242526273 0» OCT212223242526273Q, 
0CT21424634445464750» 06721424344454647502 
0CT2162636465666770% 0672162636465666770; 
FILL BE*) WITH OCTO102030405060710» OCTO10203040506007109 _ 
0CT02030405060740» OCT0102030405060710» 
OCT02030405060710» 06701020304050607303 
FILL Co*) WITH OCT4142434445464750% 0676162636465666770» 
UcT21222324252627305 O0CT2122232425262730>» 
OCTHI424 344454647502 0CT616260364656667705 
FILL OC*] WITH OCT77777777777777775 OCT777777777777777 7» 


14060480 tT 0021 
11060490 7 002} 
234 78° 6 LONGs NEXT SEG 


119060500 tT 0021 


OCT 77IITITITTTITT Ts OCTITTITITTTTTTAIT I 
OCT77777777777777778 OCT?7777707777777773. 


“START OF SEGMENT weetudntne 
11060510 7 0023 
11060520 T 0023 


229 


228 


230 


228 


iv 
@ 


232 
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ar ae 3 ry Ts yA 3 
> & 3 B 6 & 3 


232 18 6 LONG, NEXT SEG 228 @ 
A = STPROCCACLI*® BCilds Chile DOc1)» Xe YDS eee "44060525 T 0023 ’ ‘e 
OR Pe STEP DUNT 6 DG Pee ee! 11060530 0029 iF 
BEGIN 11060540 7 0030 1 
TEMPET] © BC1Is— So eee 11060550 T 0030 le 
: TEMPCI146) *O01)s ee ee, 11060560 003 
ENOe 11060570 T 0035 ie 
: TEMPC13] © X3 | - OS 110605686 tT 0037 ie 
5 TEMPEig) ¢ Y3 . __ 11060590 0039 
FILL ANSC*) WITH 0¢672122232425262730% 0¢724222324252627 30» 119060600 T 0044 1e 
START OF SEGMENT stetwkewwee 233 le 
DCTZO4Z4 34445464750» OCT2142434445464750, = ss 1060610 T 0043 , 
06T 20626 36465666770 0672162636465666770,5 119690620 T 9043 10 
eo 0¢T0102030405060710, GCT0402030405060710» 44060630 T 0043 — He 
OCT0102030405060710 OCTO1020304050607109 —-«—s—=s—s— ss 60640 T 004 l 


UCT0102030405060710» 9¢T0402030405060710" 11060650 T 0043 2 @ 
OCT4431456462, OCT474364623 — 29060660 7 0043 le 
eT ae 14 LONG, NEXT Seq 228 : 
CVN © 143 11060670 T 0043 1@ 
a eer 11060660 T 0043 ve 
VERIFY 11060690 0044 39 
ENDS 11060700 7 0044 i 
Se a ee sO eng Ge ag A ge 226 1S 50 LONG, NEXT SEG 10 te 
PROCEDURE P1073 CUMNENT STREAM DESTINATIONAL STATEMENT LITERAL — 11070010 7 0174 7 
CHARACTERS EK 5 DEC 623 11070020 T 0474 hd 
BEGIN Ere 47070030 F 0174 ‘le 
ALPHA ARRAY ACL86), BL1t373 | 11070040 fT 0174 i 
START GF SEGMENT s#etetenen 234 1@ 
INTEGER Ievd ———t1070050 T0003 7 le 
ae STREAM PROGEOWRE STPRI( FieF2)3__ oa 11070060 7 0003. sy 
BEGIN 1107007C T 0003 e@ @ 


Data Documents/inc. 


DleF is 
Ose {LIT "A" 


0S¢ 3 T_"BCO"} 
DS ¢ B LIT "EFGHI/#5" 5 


DSe 4 LIT "KEH"3 


omen mo FTF FF WN = 


V1 . DSe 16 LIT WAN; 

! DS+1 LIT "aSTUNS 

. 

ns DS # 7 LIT "JKELMNOPQ"3. _ 
1 


c) 

7 DleFa; 

8 

9 " D9¢16 LIT "APASADENAsCALILe 3 


1 . DS*8 LIT "AUSA"3 
b3| ENO> 


DS+ 8 LIT mAY; 


STPRICAC1]2B013)3 
FOR I. ¢ 1 STEP 1 UNTIL 6 DO TEMPCI] «+ a C1)3 
FOR J ¢ 1 STEP 1 UNTIL 3 DO TEMPCU+6) « BLY] 


VERIFY 
END? 


11070080 
11070090 7 0004 


4 
oO 
co) 
o 
& 


070100 0004 


11070110 


— 
Oo 
Oo 
oO 
wa 


11070420 T 0006 


0701306 000 


119704340 


—_— 
oa 
Lo) 
Oo 
o 


41070350 7 0011 


070160 O01 

11970170 T 0012 

14070380 F 0013 
070190 QQ 


11070200 T 0016 


11070210 T 90016 


41070220 7 0019 


FILL ANSc*] WITH OCT2422232425262730» 007316453754225304 08 


00T2170217021702170» OC 12222222222222222, 


OCT222¢2e222222222229 OCT2141424 344454647, 


: | . . : OCT2147216221242545»% 0672172232143314332, 
OCT216462212164622143 

cvN 93 

a PNO « 1073 


PROCEDURE P1083 COMMENT LITERAL BITS EK G DEC 623 


BEGIN 


ALPHA ARRAY As B (124]3 


11070230 7 0025 


11070240 7 0032 


START OF SEGMENT wewtereeee 235 


11070250 + 0034 
41070260 7 0034 


11070270 7 0034 
11970280 T 0034 
7 LONG» NEXT SEG 234 

11070290 7 0034 
11070300 T 0034 
11070310 7 0035 
11070320 7 0035 

40 LONG, NEXT SEG 10 
11080010 T 0174 
11080020 7 0174 | 
11080030 y 0174 


Data Documents/Inc. 


@ _ @ 

@ START @F SEGMENT «tatakatee 236 : e 
INTEGER 1 — OB OOSO T 0002 , 

@ eee | . AL) 
STREAM -PROCEOURE STPP2CFieF2)3 ee 11080050 T 0002 3 
4 

ry BEGIN 11080060 7 0002 :|@ 
6 
Ol «+ Fis "41080070 T 0003 ? 

e |@ 
DS «24 SETS OROOBO 000 9 
10 

r DS + 48 Sets 11080090 t 0003 |@ 
1 
: DS*60 SET? DSe 60 SETS : ac aides 11080400 YT. 0003 "3 

e@ 4 i : . ee erst 10 
pl «+ F23 __ 41080110 Tt 000 15 
16 

e US ¢ 1 RESETS 11080120 T 0004 |@ 
13) 
“OS « 48 RESETS ae 41080130 T 0004 9 

@ ¥. . ao bd @ 
DS#60 RESETS DS*36 RESETS ee 11080440 T 0005 21 
4, 22 

@» DS « 47 RESET: 11080150 T 0005 py @ 
2 24) 

B58 a as Slerl; DleFi3 4CIF SCs""" THEN OS*i1 RESET$ Dl*DI+73  ©»3©3080355 7 0005 2 
& b6 a @ 
q hit Sa eM a a cd 8 Bg an SO a we he i a 08015 000 2 

@ ENDS 11080460 Tt 0008 
° FILC ANSC*) WITH OCTOs OCTos OCToO» OCTos cae oS 14080170 YT 0008 
ae START OF SEGMENT «#etavetene 237 
@ 5 
— ee ee 37 7S 4 LONG, NEXT SEG 236 
37} 
@ FILL Ble} WITH OCT?7777777777777779 OCT7777777 777777777» 41080480 7 0010 . 24 @ 
39 ‘ 39 
START @F SEGMENT #*etutetee 238 40 
e +|@ 
OCT?P7777777777777779 UCTI77777I7TITPTT ITT 11080490 t 0012 2 
4: 
@ 238 7S 4 LONG, NEXT SEG 236 4@ 
; 45 
STPPoCAsB)> 11080200 Yt 0012 16 
@ |W 
; FOR I ¢ 1 STEP 4 UNTIL 4 00 - 11080210 T Oot4 ‘8 
* . : : . a 49 
e: BEGIN 6% cy: | 11080220 7 0045 | «| @ 
5 1908V2 0) T 5 
ry 54 @ 
: 11080240 fT 
@ - 11080250 T sq @ 
rd] e@ eo 
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2 2 a « E 3 : E n 55 TS 3 TKS 


oon mF FF WN = 


— SS a es 
NO = SO 


= 
ry 


oe 
bt oa 


CVN © &3 


PNO « 3083 


VERIFY 


ENDS 


PROCEOURE P1093 COMMENT 5.1267 STREAM GO TO STATEMENT HN B 3 


BEGIN 


Sows. STREAM PROCEDURE GOTO (SRC*»OSTsSRSsDSN)3 


BEGIN 

| ABEL Hs 
SI 
DI 
vS 
GO 
SI 
OI 


OS 


HS ENDS 


«¢ SKC 3 


TEMPL1] 663% 


TEMPL2]© 633 


“YEMPESI© I78 


TEMPLG]© 478 


GOTOCTEMPCLIsTEMPLC3I]sTEMPC2) + TEMPE 4) )3 


FILL ANSE*) WITH OCT7?7s OCT?» OCTI7» OCT2i13 


START QF SEGMENT atuxewewek 239 
OCT377777777777T7777» OCTAT?Ti7TTiTiT777IT> 44080270 T 0024 
OcTO» OCTOs» OCTO» OCTOS 080280 00; 
239 +8 8 LONG, NEXT SEG 236 
oe 11060290 T 0024 
1080300 0028 
11080310 7 0026 
11080320 T 0026 
36 31 LONG, NEXT SE 10 
11090010 7 0474 
ees 11090020 T 0174 
See, Wiest 090030 U 
START OF SEGMENT sextetenee 240 
ae eee 11090040 7 0000 
cosh izus 090050 0000 
11090060 T 0000 
-_ 11090070 7 0000 
See 11090080 T 0000 
11090090 T 0000 
CO 11090,00 7 0004 
11090410 T 0004 
11090420 T 0001 
ee —— * 11090130 7 0001 
11090440 000¢ 
11090150 rT 0004 
~ ~11090;60 FT 0006 
ao 13090470 T 0008 
11090180 T Oolo 
“-'4$4090190 7 OOte 
START OF SEGMENT a*etenewee 94 
241 7S 4 LONG, NEXT SEG 240 


Data Documents/inc. 


a y ‘ 5 5 a rn 55 eS TS 5 3 = 


i = 8 


CVN ¢43 PNUCLOSS VERIFY 


ENDé 


PROCEDURE P1103 COMMENT 5,12.8 SKIP BIT HN B3 


BEGIN 
STREAM PROCEDURE SKBITS(SRC*DSTsSsDeN)3 


11090200 7 0016 
11090210 T O017 
9 ui, N 
11100010 7 0174 
11100020 T 0474 
14100030 0174 


START OF SEGMENT wtadwnkaten 


VALUE S* Ds NG 


: _BEGIN | _ 


SI « SRC$ Dle OST; 


SKIP S S83 SKIP D Ob; 


OS « N CHR 
ENDS 


FILL TeEMPC*) WITH OcT10305073 


SKBITS CTEMPECI)» TEMPL2)]s 302365193 
FILL ANSc*] WITH OCT{O30507% OCTO3004 


11100035 7 9000 

00g 4 0000 
11100050 T 0000 
11100060 T 0000 
44100070 F 000 


11100080 T Oc02 


«44100090 T C002 
__ START GF SEGMENT «teeetntase 


1 LONGs NEXT SEG 
11100300 y 0004 


11100410 T 0008 


START OF SEGMENT wtatadetne 


CVN «23 PNO #1103 VERIFY 


ENDs 


7 244 758 


2 LONGs NEXT SEG 
11100420 7 0009 


41100430 7 O01] 


PROCEOURE P1115 COMMENT 5,12,9 STREAM TALLY HN B; 


BEGIN 
INTEGER I3 


snare ne natin ln rn etn ta i ne 


INTEGER STREAM PROCEDURE SQUARTCN)SVALUE N35 


BEGIN 
TALLY OR 
NONCTALLY@TALLY41)3)3 


12 LONG» NEXT SEG 
11110010 T 01474 
14110020 T O474 
11110025 T 0174 


START OF SEGMENT weweweewns 


242 


243 


242 


244 


242 


10 


245 


11110030 T 0000 
fi110040 7 0000 
11110050 7 0000 


11%10060 Tt 9000 


Data Documents/inc. 


Oo ef ys 


5 BS 


co nw OD HF FF WH = 


= 
nh 


ar vr) 
a oS 


CESSES 
oS S Sf a oe 


= 


iS] 


3} 


SQUART ¢€ TALLY 


ENDS 


OR ¢ STEP 1 UNTIL 10 12O 


TEMPCI) © SQUARTCI)3 COMMENT Tee 3 


FILL ANS(*)] WITH OcCT1is OCTa» Octite OCT20* OCT31» OCT4ar 


OCT61» OCTOs OCTAls» OCT44; 


CVNe1Os PNO*L113 VERIFY 


ENDS 


a Ap eee ttn tn tenn RR Nr nN eee 


-PROCEOURE Pil2s COMMENT STREAM NEST STATEMENT EK 121 DEC 623 


BEGIN 


INTEGER AsBeEeFeGe Jats 


ARRAY ClO0219]e0D[0219)]» HLO38], oral; 
STREAM PROCEDURE STPRN (FLeF2°F3eF4oF Se FOF TOF BSF USF 10)3 


BEGIN 
LABEL Lisl ZeL3elL Sol 6eL73 


LOCAL VisV2eVaeVa; 


TALLY © OF 


11110076 T 0003 
11110080 rT 0003 
0090 000 
11110100 T 0006 
111190110 T O011 
wih teak Kun aee 2 
11110120 T Oole 
10 LONG, NEXT SEG 245 
0130 00 
11110140 T OOt14 
17 LONG, NEXT SEG 10 
11120010 7 o174 
11120020 7 O474 
11120030 7 0174 


EGMENT weetawntwe 4 


ee eee eee ees GN ok 1° Meee 81) ee 


11120050 7 0007 
11120060 y+ 0007 
11120070 t 0008 


11120080 T 0008 
11120090 T 0008 


11120100 Tt 0008 


acSIleLOc Fis OF « LOc Fai 


Vi © SI} V2¢DIs OLeV2s Steviz 


111201410 7. 0009 


TALLY © TALLY +#+1)}3 


OL ¢« Fa; 


F2 ¢ TALLY} 


SI ¢ LOC Fa; 


OS + 1 WOS3 
TALLY ©. 
vleTALLyY3 


11120120 7 0010 
11120430 T 0010 
11120140 Tt 0010 
11120150 Tt 00C11 


11120360 7 0011 


0170 00 


11120175 7 0011 
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72a >: es Se ee es eS 
D a b Te a & v! oD a 


@ e 
@ SL ¢ F33 11120480 7 0012 ® 
Dl + Faz ee ~ -£4120490 tT O0f2 ' 
@ 2|@ 
BCOTeOLevisSleSleV1)3 ete Se hos 11220200 r 0012 3 
@ 2 (OS¢1 wOS# US*8 CHRS DS*8 OCTs DS*a DEC; 11120210 7 0014 |e 
GO TO Lis OSe 7 WOSS Lit OS +8 ADDS OS +8 SURF 11120220 rt 0015 le 
° OS ¢ 8 ZON’ DS* 8. NUM) 3 7 120230 0016 : 
eo} GU TO Las 114120240 7 0017 @ 
a TALLY TALLY ae | ——— eo 11120250 T Oo47. ‘e 
. LZ? 3 (pS ¢2 LIT "E"s pS © 6 SETS DS + 6 RESETS 11120260 Tt 0017 's 
er GU TO L353 JUMP OUT L3% SKIP 6 DBs SKIP 6 SB3 11120270 t+ Ool19 a) 
‘ ; DS * 3 LIT "EK" D3 | 44920280 7 0020 le 
TALLY + 03 eee ls i SEU AIO. 7 2 O02 $i 
Cl « FS; 11120300 tT 0022 10 
ao TALLY © FALL VG TSS (TALLY © TALLY+y? 2 (Tally «© ~~” _qq7e0310 7 Od2a2° ~~ e 
| _TALLY+13 JUMP OUT)3 JUMP OUTS TALLY © TALLY+#1)sTALLY 11120320 T 0023 : 


¢ TALLY #1) 3 11120330 + 0026 
Fo ¢ TALLY; ie 11120340 7 0026 


$I ¢ Loc FS53 120350 ag 
DS ¢« 1 WOS3 . 11120360 T 0027 1 
TALLY © 0% DI © FO} a 11120370 y 0027 le 
3 {TALLY © TALLYS#13 2CTALLY © TALLY+1)5 FO ¢ TALLYDS 114120380 7 0027 : 
Sl ¢ Loc F63 11120390 t 0029 Ar) 
os ot WOSs - 8, 11120400 T 0029 e 
TALLY © OF D1 © F73 11120410 Tt. 0030 rc 
3C3CTALLY «© TALLY+1)3 TALLY « TALLY+1)3 11120430 T 0030 18] 
Fr TALLYS. COLI 204 F 0082 = 


Sle LOC F730 | 14120450 7 0032. 34 


OS * 1 woOS3 . 11120460 tT 0032 sj @ 
eon Dees... ne ee | me 3 11120070 7 0032 bs 
@ @ 


Data Documents/inc. 
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4 CIF 1 SC = OC THEN BEGIN IF 1 SC = DC THEN 11120500 T 0035 
_—_ OS ¢ 2 CHR ENDS © _ 11120510 7 0036 
2¢ SKIP 1 SB} SKIP 1 DBS a 11120511 7 0037 
IF $8 THEN 2 C4COS © 1 CHRISI595 11120520 T 0038 
Ol « Diw2s SI + SIm23 7 11120521 7 0040 
2 CIF SC 3 ALPHA THEN BEGIN IF TOGGLE THEN 11120530 004 
0S « 4 ChR END) 3 11120540 Tt 0042 
TRL} OR 11120550 7 0043 
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setae Se cee Be PO ne hee ee Oe Oe 
F10 ¢ TALLY; 11120590 7 0047 
SI + LOC F103 eee "44120600 7 0047 
DS ¢ 1 wOSs GU TO L73 naeee ete, 11120610 T 0047 
L5: oS « S LIT "O"% DS © 3 LIT "SWO"; 11120620 7 0048 
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ENDS ee eee = 11120630 tT 0053 
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OCT207» UCT33» 0670101010101010103% OCT0202020202020202, 20650 0053 
0CT20406060604040200CTU102030405060700» 0CT313233, 11120660 1 0053 
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INTEGER AsbeCoDe£k} 
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JUMP UuT)*s JUMP GUT TO L2s TALLY*TALLY4+13 JUMP OUT); 114130250 tT 0010 e 
TALLY « TALLY*]3 EE BOREO TOOLS ‘\e 
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END 
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_ 111501370 7 0008 
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11150270 


0290 
11150300 
11150310 

150320 
11150330 
11150340. 
11150350 
11150360 
11450370 


~ 14150280 7- 


T 


T 


N DS « 4 WDS; 11150390 T 
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| ELSE | Se 11150670 7 0024 
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Ne BEGIN SI ¢« LOC 0D 3 Fe a ee ees ee 0680 00 
or | DI * TI73 11150690 7 0024 
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8 a A +t 43; Be i ¢ 6; De H () ore 

FOR I « 0 STEP 1 UNTIL 20 DO STRM C1) #1 3 11151030 T 0029 
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i CVN € 473 . : 11151060 7 0042 
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IF SC = "1" THEN BEGIN DSe1 LIT "31"3 Dreole7s 2+ 


SleSi*2 ENDS IF TOGGLE THEN GO TO AS GO TO NEU; 


At IF SC > "4" THEN BEGIN DS* 1 LIT "2"; Dl«eD1473 
SleSi+2 ENDS” o THEN GO TO g3 GO TO Neps 


Bs IF SC $ "#" TREN BEGIN DS* 1 LIT "3"3 QDleDI 473 


11160090 7 0004 
1601300 7 0004 
11160410 Tr 0006 
11160120 + 0007 
60430 VOUS 


11160340 7r 0009 


Stest+1 ENDS IF TOGGLE THEN GO TO Cs GO TO NED; 
ct IF SC < " " TREN BEGIN DS¢ 1 LIT "4"5 plepi473 


Sl¢Si+1 EnNOs IF TOGGLE THEN GO To D3 GO TU NED; 


Ds IF SCe h THEN BEGIN DS* 4 LIT "SMF DIeDT+75EN0R 


= “STeLOc Q; IF TOGGLE THEN GO TO ¢3 GOTO Neps 


E3 IF SC# “e™ THEN BEGIN DS 2 LIT "O6"5 DIFDl +73 
. SleSI+, ENDS IF TOGGLE THEN GO Ta F% GO TO NED; 
fF: IF Sc®"." THEN BEGIN OSei LIT "7" 3 DIlepl+7; 


Slesil+6 ENGS IF TOGGLE YHEN GO TO Gs GO TO NED; 


G3 It SC = "" THEN BEGIN DSe1 CIT "7"FOTeDI+7 END? 


“ 


IF TOGGLE THEN GO-TO Hs GO TO NED} 


Hs IF SC= """ THEN 2CIF SCs """ THEN 2CIF SC>"0" THEN 


JUMP QUT TO NEDS DSei LIT "41"5 
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NED? ENDS > 
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START OF SEGMENT atweeeaten 257 
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11160170 ry O0O14 
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11160240 tr 0024 
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: PROCEDURE Pil7? COMMENT STREAM SOURCE AND DESTINATION COMPARE, | 11170010 + O474 
e Del eeided WUNE 24 19633 0020 0 ! 
@ i BEGIN ; 11170030 tT 0174 
LABEL DABS 11170035 T 0174 
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2 STREAM PROCEDURE SORCEDESTINCOMPARECARAYINi* ARAYIN2S* S]XTYqg> 11170050 7 0000 
e an ARAYINGSs ARAYINEND) 3 11170060 7 0000 
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. BEGIN = = 11170080 T 0900 
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: DSe20 LI Wp 49170140 7 «0008 
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e DS620 LIT “kek m eke ket e eee ee 11170160 7 0014 
— DS*20 LIT "ABCDEFGHIUVKLMNOPORST" 5 11170170 T 0016 
sg DI*LOC RISI+LUC ARAYINENDS DS€1 WOSS SI*ARAYINGS ——__ 11170180 7 0019 
@ |: OleLOC @s DS¢B LIT "ABCO4444"s DI «LOC a3 11170190 T 0020 
. IF 8 SC#DC THEN BEGIN DI*R} Si*Si=8; 0S¢8 cHR s 44170200 tT Ooae2 
na : SI+Sle8s Reol ENDS IF TOGGLE THEN GO TO Ad == 70210 00am 
@ i GE TO BAUS 11170220 7 0025 
FDTe LOC GF OS+e LIT WAACOSNGNG HT+LOC O5 | 11170230 Tt 0025 
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BAD; 
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THEN GO TO BAD} 
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IF TOGGLE THEN 


IF Sc = oC THEN GO To BADs IF TOGGLE TREN GO To BAD; 
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doen 11170280 0034 3 
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22 
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COMMENT SB Io Qj 11180090 T 0003 
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jbGUSKIRoD SBS TALLY OSES 3 Gio oe: 


Ceeree = 


CUMMENT SB IS 43 11180270 Tt 0017 


Data Documents/inc. 


* 3 A * 
> & & 3 GS & & 


> 


eS 


tS 


oe NO OD TH eF WY KH = 


(i & 3 


1F St THEN BEGIN BCTALLY © TALLY+73 IF SB THEN 
JUMP OUT) ENO 


E*TALLY3 
TALLY* O38 


tana nt ee tte een ens een terete 8 


COMMENT SB IS 13 
IF SB THEN BEGIN IF SC ="H" THEN BEGIN Sl*Loc q 
j DIeLOC Rs IF 4 SC = DC THEN TALLY*TALLY+s END __ 
ENDS TALLY*TALLY413 F © TALLYS 
SleLOC AS DLeUsKS DSe 6 WOS3 
“ENDS 
SBCRECKCTEMPCL1))3 


FILL ANSC*) WITH OCTe> OCT3> OcTS» OCTés UCT?» OCTils 


261 1S 


CVNG©G63 


PNO « 1183 


VERIFY 


ENDS 


260 7S 35 LONG» NEXT SEG 


PROCEDURE P119s COMMENT STR PRUC TOGGLE STATEMENT 5°12"43,7 KM,3 _ 
BEGIN 


INTEGER ONE* TWUsZEROPSIX3 


11180280 
11180290 
11180300 
11180310 
11180320 

180330 
14180340 
11180345 

189350 


11180360 


T 


6 LONG, 


80390 


11180400 


141190010 


11190020 


11190930 


START QF SEGMENT 


STREAM PROCEDURE TE STIOGGLECARAYINs INARAYsONE» ZERO» THO» SIXI5- 
VALUE UNE» ZERO» TWOs SIX; 
BEGIN LABEL Li» EXITRIN® Les L33 
LOCAL ArBeC3 
TALLY O35 


Ole LOC as OS*8 LIT "ANS 


SI «Loc As 


c= War NGO TO Cis  COMMEN E OGGLE TRUES 


titgooao 
11190050 
11190060 


11190070. 


11190080 
11190090 


11190100 


11904170 


T 


T 


t 
T 


T 


aekekekekazkane 


T 


T 


+} 


0017 
0019 
Q02 

0021 
0024 
0023 
0024 
9025 


0026 


0026 


11180370 + O030 
START @F SEGMENT xawteta tas 


NEXT SEG 


0033 


0034 


11180410 7 0034 


0474 
0174 


O174 


«41180380 T 0032 


10 


262 


0000 
0000 
0000 


0000 


0000 
0000 


0001 


0002 
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oo Nt mM TO fF WH = 


eS 
Uo 


5.38 FS US RE SRST 


os 2 


(ss 


18 


GO TO EXITRIN3 
DL ¢ INARAY3 


IF TOGGLE 
IF TOGGLE 
IF TOGGLE 
IF TOGGLE 


IF TOGGLE 


IF TOGGLE 


IF TOGG6EL 
IF TOGGLE 


IF TOGGLE 


TREN 
TREN 
THEN 
TREN 


THEN 


COMMENT TOGGLE WAS NOT SET TRUE} 


OD] ¢ ARAYIN3 
Ul ¢« Dl+73 
ST#LOc A}. 
BOI} 


OS¢1 CHR; Sle*SIe1; 


THEN DS ONE WOSJ STeS[#3s 


THEN 
TREN 


THEN 


USe ONG 0 3 


DS*2 aDDs COMMENT TOGGLE IS FALSE; 


GO TO EXITRINS SleSI#3;3 


IF SCS3"A" THEN GO TO Le & GO TO EXITRINS cones ee ge oe 


L23 


COMMENT TOGGLE IS TRUE; 


DI ¢ DI+4s 


IF TOGGLE THEN DS «© TWO ZONS 


IF TOGGLE THEN OSe 8 LIT "B"3 


IF TOGGLE 
IF TOGGLE 
IF TOGGLE 


C#TALLY; 


THEN 


THEN 
THEN 


SKIP 42 0B} 
0S « SIx SET; 
BCTALLY*TALLY+4 93 


STeLOC C3 DS*1 WOSs STeLOC a3 


IF 8 SC = DC THEN TALLY#03 


IF TOGGLE THEN GO TO EXITRIN3 


CelTALLY; 


ST*LUC Cs DS © 1 WOSS SyelOc a3 


IF SB THEN GO TO EXITRINS 


IF TOGGLE THEN GO TO EXITRING 


IF SC= "A" THEN GO TO 


L3sG0 TO EXITRIN; 


G33 IF TOGGLE THEN BEGIN 3C IF SCS*E" THEN BEGIN IF 


JUMP CUT) ENDS CeTALLYS SIeLoc C3 DSey WOS3 


EXITRINS ENDS 


ONE ¢ 43. THO © 25 SIX. 65) ZERO + 03 


TESTTOGGLE CTEMPCI Js TEMFL22) /0NEsZERUs TWOsS1Xx)5 


11190420 
11190430 


11190140 
141190150 
11190160 
11190170 
11190180 
11190190 

90200 


11190210 


~ 41190220 


90 0 
11190240 
11190250 
11190260 
11190270 


11190280 


11190290 


11190300 


11190310. 


11190320 


11190330 


11190340 


90350 
11290360 
11190370 
11190380 


11190390 


11190400 


11190410. 


11190420 
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a A It 5 T5 cy 3 3 x > 
; os : 6S © a eg N ‘a: = 


o 2 8 3 


CES 


FILL ANSE*] WITH OCTel» OCT2ieieial2la2leilei» OCTy» 


CVNC|103 


PNOe1193 


ENDs 


PROCEDURE P1203 COMMENT STREAM PROCEDURE SOURCE FOR ALPHA TEST _ 


BEGIN 


VERIFY | 


DT*Lo 


TL bee le S]+ 


STREAM PROCEDURE TESTALPHACARAYIN)3 prs ce Sic peta teat ALE 


as 


11190430 7r 0036 
11190440 T 0036 


____START OF SEGMENT wtetuwewee 263 


UCTG101000000002020% OCT2222222222222222» 11190450 T 0037 


“OCT77* GCTIO» OCTO, OCT1I0» OcTi03 — 11190460 7 0037 
| 63 yS 10 LONG» NEXT 5S CY: 
11190470 Tt 0037 
11190480 T 0038. 
ee ee 190490 7 0039 
11190500 T 0039 
1S  &2 LONG, NEXT SEG 10 


11200010 0474 


Je12.13,89 FEB O6,1963 KMes 14200020 y O474 


11200030 T 0474. 
14200040 0174 


START @F SEGMENT #*etaketne 964 


BEGIN 11200050 tT 0000 


LOCAL As 11200060 0000 


LABEL LiskoslL3eLlas 11200070 T 0000 


eee ST T2000ED T UNO 


112000907 0001 
11200100 T 0002 


S¢F .6 J¢ ALLY +03 
ST#LOC Ad OI ¢. ARAYINS 
IF Sc ALPHA THEN BEGIN IF TOGGLE THEN pSe8 LyT 
"ARS Doel LITWB"s GO TO 11 END# TF TOGGLE THEN 1200110 T O00 


DS « B LIT "CY 3 DS © B LIT "DN; 11200120 t 0006 


Lit Syest433 11200130 7 0009 
IF Sc= ALPHA THEN BEGIN IF TOGGLE THEN OSe8 Lil ijz00140 7 0009 

"Avs DSB LIT "BY GO TO -L2 ENDS IF TOGGLE THEN 11200150 7 oolo 

0S « 8B LIT "C3 DSeA LIT "Ds 11200460 y 0013 
eres 11200170 7 0016 


T 
11200180 t 0016 
11200190 7 0017 


IF SC#ALPHA THEN BEGIN IF TOGGLE THEN DSeg LIT 
"A"N30Se8 LIT"B"S GO TO L3 ENDS IF TOGGLE THEN 


Data Documents/inc. 


11200200 t 0020 & 
11200210 7 0023 


DSeg LIT "CS DOSe"B LIT "DS 
L3t SrleSted3 


2 
: J wALPHA THEN BEGIN JF TOG HEN DS¢8 11200220 00 
LIT"A"3 LSeg LIT"B"S GO TO 44 ENDS IF TOGGLE 11200230 T 0024 
THEN DS*8 LIT "C™Z0S"R LIT "D3 - oo 11200240 Tt 0027 
k L433 ENDS ; 00250 0030 
er; TESTALPHACTEMPE1)); 11200260 T 0030 
Par FILL ANS[*) WITH OcT2i212i2i2izi2i2i, OcTa222222222222222, 11200270 T 0033 
‘ | | | ____ START @F SEGMENT s¥atananen 265 
@ i . UcT2424242424242424, OCTZ121212121212121» 11200280 7 0034 
Pa OCT Be eecazeeccezaaar OcTogedauauaueuagoue 11200285 T 0034 
i — . oie oe Se ee oe 3 POR VS 6 1 On NEXT 5 64. 
@ fl CVNe63 11200290 t 0034 
“ : a PNO « 1203 ee . 11200300 Tt 0035 | 
d VERIFY eee Ua ele. oe OOS OF OO SM 5 
e : ENDS | 11200310 T 0036 
ef | : 264 7S 37 LONG, NEXT SEG 10 
: PROCEDURE PiZisCOMMENT FOR STATEMENT MULTIPLE LIST ELEMENTS3 — 11210010 T 0174 
°: BEGIN 11210020 tT 0474 
e REAL EeF eC3 ee ge ee 11210030 7 0j74 
; ____START OF SEGMENT stetetetwe 266 
@ ip INTEGER D2G*HS 11210035 7 0000 
e a “BUOLEAN  ArBs- ; 11210040 7 0000 
INTEGER PROCEDURE SEVEN CFML); ; 11210050 T 0000 
@ / INTEGER FMLS 11210060 fr 0000 
BEGIN SEVEN® FML MOD CFML45) ENDS 0 —«£4210070 7 0000 
E+ 15,53 Fe 7,53 Ce 2,03 Ae TRUES Be FALSE 3 Oe 2732 5 11210080 T 0004 
Ge 23 He 43 11210090 t 0009 
TEMPLiJ¢ 153 TEMPL2le 33 —* 11210100 7 Oot! 
FOR c+ TEMPCI3+ TEMPL2)* SEVENCIO)»"ABNS4 "AM» 5S pO BEGIN 112101130 T0014 
a) Ge G+13 TEMP[G]* C+5 ENDS 11210120 T 0026 


Data Documents/Iinc. 


. * 4 ES oh BS 5 I 3 3 
an > oe B ‘ & & x = 


Cee 


FOR Ce FE + 16 STEP 1 UNTIL SEVEN (9)» 
DeC44t2) + D.C40:3) STEP 0.645319 


UNTIL TEMPL1]*6* SEVEN(6)42 STEP "AB" MOD WA" UNTIL MA" & 8 » 
15 STEP 3 UNTIL 
20 00 BEGIN Ge Geis TEMP (G]* C END? 
FOR Ce Fee STEP (oF) WHILE G< 16% SEVENC2) * (#4) 
WHILE A UR By 8 
STEPC*F) UNTIL * CSEVEN(O)) DO BEGIN Ge Geis He Head 
Ae BOOLEANCH, (4581395 | wee 
TEMPCGJ* SEVEN (C) ENDS 
FILL ANS C¥J WITH OcTi?* OcT3s Octave Octi7» OcT2i50» 


START OF SEGMENT wrTrrre ys 


OCT1i2» OCTigs OCTil» OCTiO» OCTi1»s 


OcT10» OCTiys Octi7» Oct22a» Gcl2000000000000002» 
0672000000000000005» 9672000000000000002% 
UCT2000000000000002» UCT 10» 


acts 


CVNe© 20 3 
PNO* 121 3 PS ren 
VERIFY 


EXDs 


PROCEOURE P4223 


29 wOV 623 
BEGIN” 
INTEGER X19X20X30X43 


START OF SEGMENT eteteketaw 


114210130 1 
11210440 7 

210150 
11210160 


“ 


11210170 + 
210180 T 


11210190 T 


' 41210200 T 


14210210 
11210220 7 
11210230 T 


11210240 1 
112139250 T 
210260 
112130270 T 
11210280 T 


2 ONG 
11210290 T 
11210300 T 
13210310 


11210320 T 


11220020 T 
11220030 ‘7 
11220040 T 


0036 
0044 
Q045 
0059 
0061 
0068 
0075 
0078 
0087 
0089 
0092 


0093 
0093 


0093 


0174 
OyTa 
0474 


267. 21 


268 1 @ 
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@ @ 
e x4 # 43 11220080 t 0002 @ 
1 Al * Ag « AS ¢ AG © TRUES = 11220090 7 0002 
e : AS ¢ AGO « A? © FALSES 11220100 T 0005 
@ IF NOT X14X2 THEN TEMPC1J¢7 ELSE TEMPC1I]¢53 11220110 T 0006 
: IF X4>xl4X2*x3 THEN TEMP(2]© 5 ELSE TEMPC2) « 73 44220120 7 0012 
°| FAY GR A5 AND AG THEN TEMP(3) ¢ 7 ELSE TEMPC3) ¢ 53 0130 00 
e f IF At EQV AD IMP AZ OR AG AND AS THEN TEMPC4J*7 ELSE TEMPL4 Je5;3 11220340 T 0024 
IF A6 E@V AD AND AZ THEN TEMP(SJ© 7? ELSE TEMPC5] ¢ 53 | 11220150 + 0030 
e if IF X4 < X3 EGV X1ex2 IMP ay THEN TEMP(O6]e 5 ELSE TEMP(63¢ 75 14220360 7 0037 
6 
° FA MP AD IMP AG THE -MP(7] ¢« 7 SE Temp [7] ¢« 53 Roe en ne 220470 0044 
or IF X1=x2 GR NOT X1#xX3 AND AS IMP AG EQyY AS GR x4>X1+x24*x3 AND 11220180 7 0054 
p2 = NOT AS IMP Ad AND X15X2 THEN TEMPc@] « 5 ELSE TEMP(8] «7s ~ $9220490 t 0056 
eo” IF X4<x3 EV NOT Al IMP X13X2 OR NOT X3>X4 THEN TEMP [9] ¢ 5 cS ; 11220200 T 0064 
r . ELSE TEMPL9}] © 73 11220210 7 0069 
dl IF NOT AS OR Xa<xXyeX2 [MP AS EGV X1=X2@ [MP NOT xX4<xi AND AD 41220220 T QQ72 
e & THEN TEMPC10) © 5 ELSE TEMPL10] © 73 11220230 T 0077 
e | IF NOT x4>x1 €QV x4>x1 AND AS IMP NOTCAL OR AS) THEN TEMPL11) 11220249: 7 0083 
ie #5 ELSE TEMPCi1] « 73 — 220250 T 0087 
e| IF AS E@V K4>x1+xX2 GR Al ImP FALSE THEN TEMPL12) © 7 ELSE 11220260 T 00914 
@- TEMPCL2}¢ 93 11220270 T 0096 
) IF Ag OR Ai AND Ae AND NOT CAL OR AS AND AG IMP X4<K]) THEN 17220280 T 0098 
*| MP ¢ ao MP ¢ 53 0290 N10 
@ |. IF NOT A1 E®V X4exX1 OR CAL AND TRUE) AND A6 OR FALSE THEN 11220300 t 0107 
~ TENPL14) a ELSE TEMPCi4d]e 55 11220310 T O110 
° = FILL ANSt*) WITH OcT7s UCT?» OCT7» OCT?» OcT7* OcT7» acT7# Fs 220320 T 0115 
er . : i : | . | : START OF SEGMENT etetetenwate 269 
5 CCT TeUCTT> UCT? > UCT?» OCT7> OCTTs OCTT3 11220330 T 0416 
a: | 269 18 14 LONGs NEXT SEG 268 
rd] al CVN © 143. ke A : * | 11220340 7 0116 
@ = sa; 7 am aa : 11220350 7 0117 


Data Documents/inc. 


Se Ss 2 : Ss 8 8 * 


VERIFY 11220360 7 0118 

ENDS 7 _ 11220370 7 0418 
RS 429 LONG 

PROCEDURE P1235 COMMENT GO TOG STATEMENT (PROCEDURE) EK 20 DEC 623 11230010 T 0474 

BEGIN — 11230020 T 0174 

ABEL Li2e LLP» LL» Lo bO3e L023 2 — 11230030 1 0474 


START OF SEGMENT 


INTEGER: TeJeKeSUMeBeCo Ad 11230040 7 0000 
BOOLEAN TeT2p 13s Td TSs TOs Tet Be TESTI. reine a ie Sea mete 230050 0000 
PROCEDUBE PRIC TsUsK»SUMsBsCoAsTsT2sTias Tas Tis T a TEST 11230060 7+ 0000 
Eo ae Cee ee eee ere SET UR BRC 
INTEGER IoveKs SUM» BoC As ie hh 1290065 T 0000 
BOOLEAN T » Ta» T3% Tus T5* TT?» TESTS 11230065 T 0000 
LABEL LO2) LO3r LiPs LS 11230067 T 0000 | 
. BEGIN LABEL L43 | _ _ 2320068 T 0000 


START OF SEGMENT 


11230070 
11230080 


BEGIN 
LABEL LULL>LLZrLL3eLL4eL2eLLSoLUNaL dob 3eLMS°LLOS 


Lat 


START OF SEGMENT 


SSRN gS aE ees ee eet TREN GUANO Eas Pr ee 11230090 T 0000 
Luz! 1F T THEN GO-TO Les” 11230100 T 0001 
LL3: I © let} TEMPCT) « 15 41230110 T 0002 
GOTO IF I< 2 THEN LL2 ELSE Lia; 11230120 T 0005 
Lua: GO 10 IF I¢3 THEN LL2 ELSE LLSI 11230130 7 cot1 
LLS: IF I<4 THEN GO TO LL3;3 11230340 7 0018 
Go TO Las Ble 11230150 T 0049 

“u2t If J € 10 THEN GO TO IF SUM 2K THEN LM 11230160 1 0016 
ELSE LO3 ELSE GO TG LL63 112301370 ry Qo022 
Ete: ee ae >: “re 112301380 T 0026 
AR 12 THEN GO TO LLPR 41230190 7 0027 
FOR C « 3 STEP 1 UNTIL 10 DG SUM ¢ SUM + 43 11230200 Tt 0029 


akekckakek 


ek ke ee 


eekkk tekken 


270 


271 


272 
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s a * y 2 * = RS 
oh > 3 = x 5 


e & 
e@ GU TO Les 11230210 T 6035 e 
LL6: BEGIN SS. 11230220 T 0035 
@: LABEL LNNeLINoL TTS | eat ean 230230 ; 
; 
& START OF SEGMENT aeetaweewe 2793 
7 REAL DBSUM} OO 11230235 T 0000 
2 |: IF 13 THEN GO LNNS : 0240 7 O00 
@ : DwSUM ¢ SUM + SUM ; 11230250 yr Q004 
FE aro TeMPte)-« OBSUM3 GO TOLTT) 44230260 7 0002 
eo: | LNNE TEMPCB) © "BYPASS"; 1230270 7 0004 
e : If T4 THEN GO TO LIN 3 11230280 7 0006 
ep ) | LTT: GO TO C33 es 11230290 1 0007 
alt 7 LINt Pa eet ee 14230300 t 0040 
B ENDS 11230310 7 OO11- 


273 7S 13 LONG, NEXT SEG 272 
by L3% BEGIN Ee he eg aE Pee 11230320 Tt 0037 
INTEGER X13 11230330 t 0037 


START OF SEGMENT stuteweeee 274 


A A A ee A A eee A ee Ky >. 


Ip_T7 THEN GO TO 43 —— 11230340 0000 

XL ¢ AB 11230350 7 0002 

If TS THEN GO TO LLNS —— 11230360 7 0002 

TEMPEXL] © AS oe 11230370 fT 0006 
GC TO LLNS 11230380 T 0008 
2 


"END ae: 11230390 fF 0010 
274 yS 12 LONGs NEXT SEG 272 


7 LLit TEMPL6] «© "TST"S 11230400 7 0038 
eo jo Loe 7 : 44230010 7 0030 
ao. 7 | ot | LLNS | 11230420 7 0044 


272 78 46 LONG, NEXT SEG ari 


271 78 6 LONG» NEXT Seq 270 
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a 4 * A a ™ Ths = x. 3 ~. 
5 & 3 G & e : z 


T3 ¢ Ty ¢ TD © TRUES Be 73 11230440 Tt 0000 e 
TEST « T+ Ta « T? « FALSE: ga ene ae ae 11230450 7 0002 le 
ey ee sue ten 2008 
PRI Cle JsKoSUMs Bo Cons Ts T2eT ae Tas TSe To TEST eLO2eLOSeLLPoL)3 11230470 7 007 1@ 
TEMPLES] « SUM} Soe eee ee 11230480 1 0016 — te 
TEST * TRUE | _ 11230490 001g ae 
PR CIedsKeSUMr Bo Co Ao ToT2eT 3 Tae TSe To TEST eb O2eL 0 3rLL Pols 11230500 7 0018 1@ 
Loat Test « 73 ¢ 75 « FALSES _ . 114230510 7 0028 te 
Tie TRUES | . | ade Bile ec 11230520 7 0029 B 
B¢ B83 11230530 T 0030 /@ 
cow 7 aa “—qyE30800 00ST e 
PR1 CLlsdeKrSUMsBoCoAsToTasTarTasTSe Ta TESTebLOgeLO3rLL Polke 11230550 7 0032 | m 
TEMPCig] © "TEN"S | 13230560 7 0044 1@ 
See K « 10223 | oo  geg0s70 T 0043S a 
| | >| @ 
J + 03 11230580 0043 2 


PR1 CLode Bs SUM Bo Cope Ts T2oT so Tao TOeT7o TEST eh OeolLO3eLL Pol 35 11230590 T O044 


LOS! TEMPCil) «© "KZ00"; 11230600 7 


«¢ K « 03 hich fet ol cele hi een Ne ROA Oar a 0) i 
3 @ 

T2 « TRUBS Ee OT ee Ee 112304620 0057 36 

‘ 37) 
PRL CledsKeSUMsBy pAsT eT oeT3oT4 eo TS eT ls TEST ,LOSsLUS,LLPoL)3 11230630 1 0057 3 @ 

LLP?! TEMPLic) « “T2"3 114230640 tT 0067 40 
«|@ 

_J «© 103 11230650 T 0068 a2 

: are ) : 7 z De 4. 
13 ¢ 77 «© TRUED | 11230660 7 0069 «4®@ 


PRI (LeJeR ; 11230470 


Ls TEMPC139)] © "LUCKY" 11230680 8 
FILL ANSC«#] WITH Oct» OcTa» OcT3» Geta» OcTi4a» OcT6362632 |. 11230690 7 0084. - 1@ 
| | START OF SEGMENT weetateten 275 5 e 

5. 


ACT2Z270N7216262» OCT227047216260e» 41230700 + 0063 


1» 001632545» 06742030000, 44230710 7 0083 | |@ 
3642300703 7 11230715 1 0083 


Cer 


—“ecTé30e Oc 
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CeeTeesees 


GO To swilCil3 


Lit TEMPEL] «43 


L2: GO TU IF Yi= 1 THEN SWiL3) ELSE L53 


L33  TEMPL2] + 23 


) @ 
@ 275 7S 13 LONG, NEXT SEG 270 ® 
1 CVN © 133 11230720 7 0083 
e : PN@ ¢ 1233 11230730 T 0084 
e : VERIFY 11230740 t 0085 
ENDS 11230750 7 0085 
°|. | 270 :S 97 LONG, NEXT SEG 10 
@ a PROCEDURE P1243 COMMENT GU TG STATEMENT CSWITCHES) En 17 DEC 623 11240010 t 0474 
: BEGIN ae | 41240020 7 0174 
. f° LABEL Ld pL 2 ob 3ph4 oL 5 pL OoL? LO oL9 pL 10 ob14 pL 12 ob14 L415 pL16ab1? 240030 + 0174 
oe i START QF SEGMENT «*eteweewe 976 
al INTEGER X1eX2eVieYar]oKeL3 ST 11240040 T 0000 
. g 5 eee SWITCH SW2 FORWARD 3 | Se Ne ee 11240046 0000 
a SWITCH SW3 FORWARD 3 : 11240047 T 0000 
: SWITCH SW1 © Liela2rL3eSW2CYiJeSWeLYee7]eLOsb7*9L15s5 . 11240050 T 0000 
SWITCH SW2 ¢ L3*L4eLSeSWLEXL]>SWICX2)oLOoLGoL 163 11240060 0025 
SWITCH SW3 © L10s )F J=K THEN Lia ELSE L12SW3(4)*SW4(x2433 11240070 T 0052 
al Yi « i3 a 7 11240080 fT 0072 
v2 ¢ Yus- 112400090 7 0073 
XL ¢ 73 11240100 Tt Q074 
Xe ¢ 53 SS _ 41240310 + 0075 
eK ¢ 23 0120 7 0078 


11240430 0077 


11240140 T 0079 


11240150 7+ 0080 


11240160 7 0086 


Pc RAr oe <a 11240170 + 0087 
G0 TO Les ————T7240180 tT 0089 
L5% BEGIN 11240190 7 0089 


— ANTEGER XdeKes 


11240200 tf 0090 


START GF SEGMENT w+utueaean 277 
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* 3 + 5 a a ~ Tk 3 
> & S ® . : 3 o 


ononnw @ Oo FF WH 


Xl ¢« 4} 11240210 ry 0000 

X2 ¢ 63 ee 11240220 Tt 0000 
OO 07 12°77 240 000 

ENDs 11240240 JT 0003 

— Se 277 +S  -5 LONGs NEXT SEG 276 

7t  TEMPC3) + 33 oes 240250 009 

GU TO SW2eCxX2+2]3 11240260 ft 0092 

LO:  TEMPEGT «43 et eee 11240270 7 0095 

L #03 tengo 7 0097 

L143 Lo «¢ Lets 114240290 y 0098 

GO TO Sw3Lld) Se 11240300 7 0100 
3 MP ; Gere See cee Sate 40 0 010 

a aS A a le ahs ence ee eee POO POT SOUS a 
L11% TEMPO] « 63 11240330 7 0105 
K « Kes se a aaiaad 11240340 T 0107 


GO TO SA3CLI3 


14240350 


Li2% TEMPL7?] «© 73 11240360 
eye L143 TO 11240370 
List TEMPi8leas a ; 11240386 
GO TO SWiL(Xi"1)I3 11240390 
L6% BEGIN iio 14240400 

INTEGER x25 11240410 


x2 ¢ 103 


START OF SEGMENT 
11240420 
BEGIN 11240430 
INTEGER X44 11240440 
= ART OF SEGHEN 


11240450 


x2 + 85 
gO TO SW2tx2e3) 


11240460 


T O111 
T 112 
T 0313 
rT O41s 
T O118 
yr 0119 


stata kehew 278 


tT 0000 


0000 

T 0000 
STEER 79 
T 0000 _ 

1 0000 

7 USUI 
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| @ END 11240480 T 0003 ® 
~~ Bag 4S 4 LONG, NEXT SEG 278 
@” | 
3 geese oe 78 S Of Ne» Ss * 
: 4 
@ | L8% L4t 116% TEMPO] 693 11240490 T 0420 
‘ BEGIN 7 11240494 7 0124 
3 An Ast Rel C3 aa () °) 0) 
10) ; 
er START OF SEGMENT wkwtueetee 280 
12) 
‘ i : SWITCH SW4 © LArLBrLCeLi73 = 14240492 T 0000 
rs Yt ¢ 2 4 GO TO SW4CY1)3 7 112404946 7 0015 
6 
e: LA: TEMPC1Q) © O 3 GO TO LCs 11240495 7 0018 
a het LB TeEMPCiO] « 103 434240496 T C024 
Y 


7 LC’ GO TO SW4l4) ENDS 11240497 002 


360 LONG, NEXT SEG 276 


] 
w 
ion 
/ ee 
co 
—_— 
uo 


TBS Ry 


Li7% TEMPCi1d «© 143 112460498 + 0423 
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